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;