Una manera simple es crear un Record basico para pasar los datos:
Código Delphi
[-]
type
TProduct = Record
CodBarras : string;
...
end;
TCustomer = Record
CodCustomer : string;
...
end;
TInvoice = Record
...
end;
Eso queda muy bonito si en un solo archivo tienes todos tus "datos" declarados. De alli, puedes hacer una clase/interface para pasar/leer los datos:
http://www.delphibasics.co.uk/Articl...Name=Interface
Código Delphi
[-]
type
IDb = Interface(IInterface)
function to_sql(con:TCon..., of:T) : TClientDataSet;
function from_sql(con:TCon..., sql:String) : T;
end;