Consulta sobre Web services y Delphi

[Ñuño Martínez]

Como dije hace cuatro años, es difícil responder. Y también, asignar "nil" no libera memoria. El siguiente código no libera memoria:

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

Es más, te dará un error puesto que estás intentando llamar a un método de un objeto que no existe (el objeto nil no existe). El código debería ser este:

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

O lo que es lo mismo:

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

[[AgustinOrtu]]

Si invocas a free sobre un objeto que es nil no se eleva una excepción

[Ñuño Martínez]

Empezado por AgustinOrtu

Si invocas a free sobre un objeto que es nil no se eleva una excepción

¿Seguro? Me parece recordar que sí provoca un error de ejecución por memoria re-liberada o algo así. Aunque puede que esto sea algo exclusivo de Free Pascal.

[[AgustinOrtu]]

Totalmente seguro

El metodo free esta implementado asi (o muy similar, sacando los IFDEF segun la plataforma)

Código Delphi [-]
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

Esto es totalmente seguro, jamas te va a dar error:

Código Delphi [-]
var
  Obj: TObject;
begin
  Obj := nil;
  while True do
    Obj.Free; 
end;

Ahora, el problema es que el destructor no deja la instancia "limpia" (no asigna nil cuando termina, no deja la memoria en 0000)

Esto si te eleva una excepcion AcessViolation:

Código Delphi [-]
var
  Obj: TObject;
begin
  Obj := TObject.Create;
  Obj.Free; // todo bien
  Obj.Free; // AccessViolation
end;

[Ñuño Martínez]

Ok. Ahora sí me quedó claro. Será entonces eso, que no "limpio" la variable de referencia. Gracias.