Ayuda con refactorización

[Neftali [Germán.Estévez]]

Otra opción es "separar" la parte visual de la parte de "los datos".
Igual que de entrada, has eliminado el Edit_Codigo.Text de donde tenías la consulta y lo has convertido en un parámetro, puedes hacer lo mismo con el Dataset.

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text);

De forma que esta llamada quedaría así:

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset);

Y luego podrías tener u procedimiento (en la parte voisual) que cogiera los valores del Dataset y los asignara a los campos visuales:

Código Delphi [-]
Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset); 
AsignarVvaloresRetorna(ADataset);

Y el procedimiento quedaría así (en la parte visual):

Código Delphi [-]
procedure AsignarValoresRetorna(ADataset:TDataset);
begin
  //Carga los campos con los datos de la tabla
  With ADataset do
  begin
    Edit_Descripcion.Text      := FieldByName('Desc_Producto').AsString;
    Edit_PreUnitario.Text      := FieldByName('Precio').AsString;
    ComboBox_IVA.Text          := FieldByName('Valor_IVA').AsString;
    Edit_Ganancia.Text         := FieldByName('Porcentaje_Ganancia').AsString;
    SpinEdit_Stock.Text        := FieldByName('Cant_Existente').AsString;
    SpinEdit_StockMinimo.Text  := FieldByName('Cant_Minima').AsString;
    SpinEdit_CantRep.Text      := FieldByName('Cant_Reposicion').AsString;
    ComboBox_Seccion.Text      := FieldByName('Desc_Seccion').AsString;
    ComboBox_Categoria.Text    := FieldByName('Desc_Categoria').AsString;
    ComboBox_Proveedor.Text    := FieldByName('Denominacion').AsString;
    Edit_CodProveedor.Text     := FieldByName('Cod_Producto_Proveedor').AsString;
    SpinEdit_UniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
    Edit_CodBarras.Text        := FieldByName('Cod_Barras').AsString;
  end;  
end;