Código Delphi
[-]
Type
TDetalle = class(TObject)
-
-
end;
Type
TDetalleFactura = class(TDetalle)
-
-
end;
function trabajar_fila(fila, columna : integer; mueve : boolean; encabezado:TEncabezado;
lineas:array of TDetalle; sql:TQuery; grid_prod:TStringGrid) : boolean;
Según la teroría debería funcionar!!