Ver Mensaje Individual
  #2  
Antiguo 08-08-2015
Avatar de GerTorresM
GerTorresM GerTorresM is offline
Miembro
 
Registrado: nov 2005
Ubicación: Tunja - Boyacá
Posts: 210
Reputación: 19
GerTorresM Va por buen camino
FindComponent en unidad.pas - Finalizado

Bien leyendo un poco pude encontrar que antes de utilizar FindComponent, debe indicar sobre que Form se ha de efectuar la busqueda, el código corregido es el siguiente

Código Delphi [-]

procedure liberarClientDataset(pClientDataset : TClientDataSet; pParent : Tcomponent);
begin
  TProvider(pParent.FindComponent(pClientDataset.ProviderName)).DataSet.Free;
  TProvider(pParent.FindComponent(pClientDataset.ProviderName)).Free;
  pClientDataset.Free;
end;


Listo para el que lo requiera
Responder Con Cita