Hola, alguien me puede indicar si es mejor usar "FreeAndNil" o "FreeThenNil".
Gracias y un saludo.

Hello Jose,

Tuesday, July 28, 2009, 9:38:05 AM, you wrote:

JAC> Hola, alguien me puede indicar si es mejor usar "FreeAndNil" o JAC> "FreeThenNil".
JAC> Gracias y un saludo.

Compara los c�digos:

FreeAndNIL:

procedure FreeAndNil(var obj);
  var
    temp: tobject;
  begin
    temp:=tobject(obj);
    pointer(obj):=nil;
    temp.free;
  end;

FreeThenNIL:

procedure FreeThenNil(var AnObject: TObject);
begin
  if AnObjectnil then begin
    AnObject.Free;
    AnObject:=nil;
  end;
end;

Y creo que el "help" del fpc aclara la duda:

"FreeAndNil will free the object in Obj and will set the reference in Obj to Nil. The reference is set to Nil first, so if an exception occurs in the destructor of the object, the reference will be Nil anyway."

Joer, hab�a mirado el c�digo fuente pero no lo v� claro. Est� claro que estaba dormido ... :-[
Gracias, ya lo v� ... lo dice los mismos nombres de funci�n. "FreeAndNil" y "FreeThenNil" ... :-D :-D

Hello Jose,

Tuesday, July 28, 2009, 1:48:02 PM, you wrote:

JAC> Joer, hab�a mirado el c�digo fuente pero no lo v� claro. Est� claro que JAC> estaba dormido ... :-[
JAC> Gracias, ya lo v� ... lo dice los mismos nombres de funci�n. JAC> "FreeAndNil" y "FreeThenNil" ... :-D :-D

Yap, pero lo m�s importante no es el orden en si, si no el hecho de que sucede si se produce una excepci�n al ejecutar el free, en el caso del FreeThenNIL la referencia sigue teniendo su valor original que podr�a ser deseable. FreeAndNIL asegura que la referencia ser� nil pase lo que pase en el free. Lo escribo m�s que nada, por si alguien no se habia dado cuenta, y el hecho de que FreeThenNIL es parte de la LCL de Lazarus, no de FPC.