FreeAndNil VS Free

[GerTorresM]

Hola a tod@s:

Bien la duda que me asalta el día de hoy es la siguiente:

cual es la función mas indicada para destruir un objeto para este caso un formulario

Código Delphi [-]
procedure TFMenuPrincipal.ANovedadesExecute(Sender: TObject);
Var FNovedades_temporal : TFNovedades;
begin
  try
    FNovedades_temporal:= TFNovedades.Create(self);
    FNovedades_temporal.ShowModal;
  finally
    FNovedades_temporal.Free;
  end;
end;

o

Código Delphi [-]
procedure TFMenuPrincipal.ANovedadesExecute(Sender: TObject);
Var FNovedades_temporal : TFNovedades;
begin
  try
    FNovedades_temporal:= TFNovedades.Create(self);
    FNovedades_temporal.ShowModal;
  finally
    FreeAndNil(FNovedades_temporal);
  end;
end;

y muy en concreto cual es la diferencia entre las dos funciones


Agradezco de antemano



gertorresm
Colombia

[[oscarac]]

muy buena pregunta....
no me habia puesto a indagar sobre el tema

yo libero los formularios asi

Código Delphi [-]
 
frmBalance := nil;

[roman]

Empezado por GerTorresM

cual es la función mas indicada para destruir un objeto para este caso un formulario

[...]

y muy en concreto cual es la diferencia entre las dos funciones

En términos llanos, FreeAndNil lo que hace es llamar al método Free del objeto y luego asignar nil a la variable que hace referencia al objeto. Dicho de otra forma:

Código Delphi [-]
FreeAndNil(Obj);

es equivalente a

Código Delphi [-]
Obj.Free;
Obj := nil;

La única razón para usar FreeAndNil al momento de liberar un objeto es asegurarte que el objeto apunta a nil y no a una dirección de memoria arbitraria. Esto te puede servir si posteriormente utilizas la variable y quieres saber si sigue "vivo":

Código Delphi [-]
if Assigned(Obj) then
  ...

Pero, en el caso que propones, siendo una variable temporal que no se usa posteriormente, no tiene nonguna ventaja poner la variable en nil ni, por tanto, usar FreeAndNil.

// Saludos

[roman]

Empezado por oscarac

yo libero los formularios asi

Código Delphi [-]
 
frmBalance := nil;

Así no estás liberado nada. Simplemente apuntas la variable frmBalance a nil pero el objeo sigue existiendo en memoria. Tienes que usar Free.

// Saludos

[[gluglu]]

Para preguntar en cualquier parte de tu programa si uno de tus formularios concretos está o no creado, al menos yo, pregunto por

Código Delphi [-]
if Asigned(MiForm) then ....

La única manera de que te devuelva False, es decir, que el Formulario no está creado, es que MiForm sea igual a Nil

Si Haces sólo un Free del formulario, no se pone a 'Nil' y por lo tanto la pregunta anterior siempre te dará True incluso aunque hayas 'liberado' tu formulario con Free.

Por eso FreeAndNil, o simplemente también sirve :

Código Delphi [-]
MiForm.Free
MiForm := nil;

... sobre gustos ...

[[gluglu]]

... se me adelantó el Maestro Roman !!

[[oscarac]]

como comentario adicional encontre esto que quiza te ayude

[[oscarac]]

mmm me puse a cambiar los...

frmBalance := nil

por

FreeandNil(frmBalance)

y me sale el siguiente mensaje de error cuando cierro un formulario

Invalid Pointer operation


what da faq????

[[oscarac]]

la forma como creo los formularios es asi (dentro de un formulario Main)

Código Delphi [-]
 
frmBalance := TfrmBalance.create(nil);
frmbalance.show;

cuando coloco

freeandnil(frmbalance) en el destroy o en el close....me sale el error mencionado

pero si coloco esto en el destroy no me aparece mensaje

Código Delphi [-]
 
frmbalance := nil;
frmBalance.free;

me libera ? si? no?

antes de llamar al formulario balance coloque esto

Código Delphi [-]
 
if frmBalance = nil
  frmBalance := TfrmBalance.create(nil);

y siempre es nil

me olvidaba
coloco

action := caFree; en el close

esta bien asi?

[roman]

Habría que ver el contexto. Por ejemplo, si llamas FreeAndNil desde el mismo formulario frmBalance, podría suceder el error que pones. En ese caso tendrías que usar Release en lugar de Free.

// Saludos

[[oscarac]]

me atrevo a preguntar

cual es la diferencia entre

frmBalance := TfrmBalance.create(nil) ;

y

frmBalance := TfrmBalance.create(self);

[[oscarac]]

Empezado por roman

Habría que ver el contexto. Por ejemplo, si llamas FreeAndNil desde el mismo formulario frmBalance, podría suceder el error que pones. En ese caso tendrías que usar Release en lugar de Free.

// Saludos

asi es.. lo estaba llamando dentro del mismo formulario frmBalance

entonces lo correcto seria

frmBalance.nil;
frmBalance.free;

???

[Casimiro Notevi]

No, no puedes hacerlo así, primero hay que liberar la memoria y luego asignarle nil a la misma.
Por eso el orden correcto es

x.free;
x:=nil;

o más cómodo:

freeandnil(x);

Si lo haces al revés, asignas nil, entonces cuando llamas a free no hace nada porque está a nil.


Edito: he contestado lo de antes sin haber visto tu último mensaje

[[oscarac]]

Concluyendo....

primero free y despues nil

y nunca nu freeandnil dentro del mismo form

[Casimiro Notevi]

Empezado por oscarac

Concluyendo....
primero free y despues nil
y nunca nu freeandnil dentro del mismo form

Eso sería como levantarte tú mismo del suelo tirando de los cordones de tus botas

El boot

[[oscarac]]

mmmm
deberias ver a los acrobatas que hay por aca...
desafian las reglas de la fisica

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