PDA

Ver la Versión Completa : Destruir un TIBQuery


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.

__cadetill
25-03-2004, 12:20:14
en lugar de

qry.Free

prueba con

FreeAndNil(qry)