Ejemplo de llamada a la función
Código Delphi
[-]ghCopyDataSetProps (SQLDSClienteDesde, SQLDSClienteHasta,'Name',True,'');
Definición de la función - Sacada de
GHFreebrary de Al González
Código Delphi
[-]
Procedure ghCopyDataSetProps (
Const Source, Dest :TDataSet; -- datasource origen, datasource Destino
Const Excludeds :String = ''; -- aqui ponemos las propiedad que queremos excluir , en el ejemplo el nombre
Const IncludeFields :Boolean = True; -- aqui indicamos si incluimos los campos o no en la copia
Const ExcludedFieldProps :String = '' -- aqui indicamos la propiedad de los campos que queremos excluir
);
Saludos
PD: Con el permiso del maestro. Un abrazo
FREE