Ver Mensaje Individual
  #1  
Antiguo 09-03-2007
jlrbotella jlrbotella is offline
Miembro
 
Registrado: ene 2007
Posts: 185
Reputación: 20
jlrbotella Va por buen camino
Clases: Create and destroy

Hola amigos:

Tengo creada una clase con un constructor create y un destructor destroy. Lo que sucede es cuando hago un free de esta clase no la elimina.

¿Tengo que crear un método free?.

Ej:

Código Delphi [-]
TConsultarCliente = class
  private
    Conexion : TIfxConnection;
  public
    function ConsultarCliente(empresa : integer; cliente :integer) : TDataset;
    constructor Create(Conexion : TIfxConnection);
    destructor Destroy;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ConsCli : TConsultarCliente;
  Dataset : TDataset;
begin
  ConsCli := TConsultarcliente.Create(form1.IfxConnection1); 
  Dataset := ConsCli.ConsultarCliente(1,5);
  ConsCli.Free;
end;

Última edición por dec fecha: 09-03-2007 a las 10:07:34.
Responder Con Cita