Estudiando constructores y destructores

[[escafandra]]

Lo he ejecutado.
No se elevan excepciones pero se corrompe la app.
Si tratas de hacer esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LocalFoo: TObject;
  S: String;
begin
  FormFoo.Free;
  LocalFoo:= nil;
  S:= LocalFoo.ClassName;
  MessageBox(0,0,PCHAR(S),0);
  LocalFoo.Free;
end;

Aparece una excepcion en la línea

Código Delphi [-]
S:= LocalFoo.ClassName;

Si trato de hacer esto

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LocalFoo: TObject;
begin
  FormFoo.Free;
  LocalFoo:= nil;
  ShowMessage(LocalFoo.ClassName);
  LocalFoo.Free;
end;

El antivirus se carga el ejecutable y no corre.


Saludos.