Ayuda con refactorización

[mamcx]

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;