FreeAndNil VS Free

[[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...

[roman]

Empezado por rgstuamigo

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

Pues no. Porque en realidad, esto:

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

es una mala práctica. Una clase no debería hacer referencia a una instancia en particular. Yo sé que esto es muy común pero no debería hacerse de esta manera.

De entrada, no debería usarse la variable Form2 que el IDE crea en automático por la simple razón de que no es bueno usar variables globales. Si el formulario principal requiere una instancia de Form2 y necesita tenerla reservada, entonces se declara una variable de tipo TForm2 (o, mejor, de tipo TForm) como campo privado.

// 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.