FreeAndNil VS Free

[[maeyanes]]

Hola...

oscarac, no es recomendable usar la variable que declara Delphi cuando creas un formulario nuevo:

Código Delphi [-]
type
  TMyForm = class(TForm)
  // ...
  end;

var
  MyForm: TMyForm; // <--- esta

dentro de los métodos o manejadores de eventos del mismo.

Estó es, si haces algo como:

Código Delphi [-]
procedure TMyForm.FormDestroy(Sender: TObject);
begin
  MyForm := nil
end;

Te podría traer problemas posteriores.

Si quieres garantizar que un formulario se destruye al cerrarlo una de las formas de lograrlo es el evento OnClose:

Código Delphi [-]
procedure TMyForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree
end;

Saludos...

[[oscarac]]

sigo con el tema...

coloco

frmbalance.free
frmbalance.nil

y me sale stack overflow

[rgstuamigo]

Empezado por oscarac

sigo con el tema...

coloco

frmbalance.free
frmbalance.nil

y me sale stack overflow

Pero.. en qué parte de tu código fuente colocas esas instrucciones? ¿Algun evento específico? ¿dónde?
Saludos...

[[maeyanes]]

Hola...

De seguro está poniendo ese código en el evento OnDestroy del formulario en cuestión...


Saludos...

[[oscarac]]

estuve leyendo mastering delphi

y en un ejemplo dice que para destruir un formulario

basta con colocar en el evento Close

action := caFree
frmBalance := nil

aqui.. en la pagina 359

entonces asi lo estaba haciendo desde un principio

[roman]

Liberar un objeto dentro de su propio destructor no tiene sentido. Si se llama al destructor es porque el objeto ya está siendo liberado.

// Saludos

[ecfisa]

Hola oscarac.

Me gusta más:

Código Delphi [-]
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

procedure TForm.FormDestroy(Sender: TObject);
begin
  Form:= nil;
end;

Agrego un Koan de Ian Marteens que leí hace un buen tiempo y me pareció muy interesante: ¿Hay vida después de la muerte?.

Un saludo.

[rgstuamigo]

Yo tambien uso el modelo de ecfisa, pero cabe destacar que tambien se puede hacerlo todo en el mismo evento OnClose de la forma siguiente:

Código Delphi [-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;{todos sabemos que aquí se manda a destruir el formulario
 con el procedimiento Release que  su vez hace uso de la API PostMessage 
que lógicamente liberará al formulario cuando se pueda y no de inmediato
 es por eso que liberar un formulario con el método Release es más flexible, para un mejor comprension ruego buscar "release" en la ayuda de Delphi}
Form2:=nil;
end;

EDITO: Viendo éste asunto me pregunto sino sería util un método ReleaseAndNil??
Saludos...

[javier7ar]

Empezado por oscarac

estuve leyendo mastering delphi

y en un ejemplo dice que para destruir un formulario

basta con colocar en el evento Close

action := caFree
frmBalance := nil

De la ayuda de Delphi, sobre el metodo Free

Warning: Never explicitly free a component within one of its own event handlers or the event handler of a component it owns or contains. For example, do not free a button or the form that owns the button in its OnClick event handler.

O sea, que si pones frmBalance.Free (que no es lo mismo que action:=caFree) o si llamas a FreeAndNil(frmBalance) dentro del OnClose de frmBalance o dentro del OnDestroy (que no tendria sentido) te va a dar error.

Lo que haces vos esta bien, porque vos abris las ventanas con Show, entonces las liberas cuando se cierran en el OnClose (con action:=caFree)
Lo que NO podes hacer es cambiar la instruccion action:=caFree; por frmBalance.Free; porque ahi si te va a dar error.

Cuando se usa ShowModal para mostrar las ventanas, la siguiente linea al ShowModal no se ejecuta hasta que se cierra la ventana, entonces se hace la liberacion en la linea siguiente:

Código Delphi [-]
frmBalance:=TfrmBalance.Create(Self);
frmBalance.ShowModal;
frmBalance.Free;
frmBalance:=nil; 
// ó FreeAndNil(frmBalance) para hacerlo en una sola linea

por ultimo, de la ayuda de Delphi sobre el metodo Free...

To free a form, call its Release method, which destroys the form and releases the memory allocated for it after all its event handlers and those of the components it contains are through executing.

... aunque yo siempre use Free; jeje

Saludos

[rastafarey]

No se cuando tiempo tienen este hilo.

Este es el codigo de freeAndNil

Código Delphi [-]
procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;

Primero Nil
Y Luego Free.

Parece ilogico. pero no hay perdida de memoria.

[[Chris]]

Empezado por maeyanes

oscarac, no es recomendable usar la variable que declara Delphi cuando creas un formulario nuevo:

Código Delphi [-]
type
  TMyForm = class(TForm)
  // ...
  end;

var
  MyForm: TMyForm; // <--- esta

dentro de los métodos o manejadores de eventos del mismo.

Estó es, si haces algo como:

Código Delphi [-]
procedure TMyForm.FormDestroy(Sender: TObject);
begin
  MyForm := nil
end;

Te podría traer problemas posteriores.

Como comentario, no se trata que no sea recomendable utilizar la variable declarada por Delphi. De hecho, sí lo es. Lo que pasa es que nunca se debería utilizar esa variable para controlar aspectos del formulario. Siempre hay que utilizar la referencia Self para este menester. Usa la variable auto declarada por Delphi solo cuándo vallas a crear el formulario.