¿liberar memoria despues de usar una Query?

[[Lepe]]

Empezado por Delfino

Ademas segun este articulo es conveniente crear componentes con el owner nil y destruirlos..

A ver, a ver que son cosas distintas.... no podemos mezclar cosas, y si lo hacemos, debemos tener cuidado.

Si le ponemos a un objeto el Owner como Form1, Application etc, jamás llamaremos a Query1.Free en nuestro código, repito, jamás. ¿Por qué?, entendamos que significa Query1, que es lo mismo que cualquier otro objeto, ventana, clase de delphi, etc.

Query1 es una variable de tipo puntero. Si la ponemos en modo diseño, Delphi se encarga de crearla en memoria cuando se ejecute nuestro programa, y además el Owner de ese Query será el Form que lo contenga. Por tanto, cuando se libere esa ventana, se liberará el Query1.

Si en esa misma ventana colocamos un Query1.Free, la consulta se libera de memoria RAM, pero la variable Query1 se queda apuntando a la zona de memoria donde estaba creada. La próxima vez que se acceda a Query1 nos dará un access Violation. Es más, como ha sido puesta en modo diseño, al liberar la ventana, ésta intentará liberar la consulta, como Query1 es un puntero que tiene un valor, irá a esa zona para liberarla, y entonces obtendremos otro Access Violation.

Estamos en la situación de que un objeto tiene un Owner y queremos liberarlo de la memoria antes que su Owner, ¿no hay una solución? Si, usamos FreeAndNil(Query1); nosotros ponemos FreeAndnil(Query1), se libera la consulta de la RAM y además esa rutina hace Query1 := nil , y aquí está el truco; cuando se vaya a liberar el Form, éste pregunta ¿Query1 <> nil?, como es igual a nil, el Form entiende que ya ha sido liberado anteriormente y no trata de liberarlo de nuevo. No tendrá fallos nuestro código.

Otra situacións: Nosotros creamos un objeto y le decimos

variable := Tvariable.Create(nil);

es decir, no tiene Owner, por tanto, será mejor que nosotros la destruyamos. Para evitar errores en una segunda o tercera creación, tambien usaremos FreeAndNil(variable), si es nil, no ha sido creada previamente, o bien ha sido liberada. Si es distinto de nil, es que está creada, no debemos crearla de nuevo.

Si usamos variable.Free , variable se queda apuntando a una zona inválida de la memoria, por tanto, no sabemos si está creada, o ya fue liberada. Al usar FreeAndNil, no tenemos esa ambigüedad:

Código Delphi [-]
Tform1 = class
private 
 query1:Tquery;
end;

procedure TForm1.Button1click(...);
begin
if query1 = nil then
  Query1 := Tquery.Create(nil)
else
  Showmessage('ya está creada')
end;

procedure TForm1.Button2click(...);
begin
  FreeandNil(query1);
end;

procedure TForm1.Button3click(...);
begin
  query1.Free
end;

Probemos a dar al boton1 y despues 2 o 3 veces al boton2, no ocurre nada ¿verdad?, el programa funciona bien.

Probemos a dar al boton1 y despues 2 veces al boton3.

Existe una situación algo más rara, es crear un componente en tiempo de ejecución y no liberarlo.

Query1 := Tquery.Create(form1);

Y nos olvidamos de FreeAndNil y de .Free, porque al fin y al cabo, le hemos puesto el dueño, él se encargará de destruirlo. Que es lo que hacemos con los TEdits, Grids, Buttons, que ponemos en nuestras ventanas en tiempo de diseño.

saludos y espero se entienda.