furniman
25-03-2004, 12:05:47
Estimados amigos, fijaos en este código:
procedure talycual;
var
qry : tIBQuery;
begin
try
cadenaSQL := 'select * form ... ' ;
qry := TIBQuery.Create(qry);
qry.database := datamodule2.database;
Qry.SQL.Text := cadenaSQL;
qry.open();
...
finally
qry.Free;
end;
end;
Yo creía que con el Free destruia el objeto, pero parece que no puesto que si vuelvo a hacer:
qry := TIBQuery.Create(qry);
me da el error de 'Violación de acceso a la dirección XXXXX en el módulo talycual. Leer de la dirección FFFFFFFF'
Qué hago mal, o dicho de otra manera, cómo debe hacerse?
Muchas gracias por adelantado.
procedure talycual;
var
qry : tIBQuery;
begin
try
cadenaSQL := 'select * form ... ' ;
qry := TIBQuery.Create(qry);
qry.database := datamodule2.database;
Qry.SQL.Text := cadenaSQL;
qry.open();
...
finally
qry.Free;
end;
end;
Yo creía que con el Free destruia el objeto, pero parece que no puesto que si vuelvo a hacer:
qry := TIBQuery.Create(qry);
me da el error de 'Violación de acceso a la dirección XXXXX en el módulo talycual. Leer de la dirección FFFFFFFF'
Qué hago mal, o dicho de otra manera, cómo debe hacerse?
Muchas gracias por adelantado.