I don't Understand, I compile this code with FPC 1.06 for Windows and the directive compiler -S2 -Rintel.
is it a bug?.

Thanks

Type
  TClase1 = Class
    campo1:string;
  End;
  TClase2 = Class (TClase1)
    campo2:string;
  End;
Var b:Tclase2;
Begin
  b:=TClase2.create;
  b.campo1:='hola';
  b.campo2:='hola2';
  Writeln(b.campo2);
  b.destroy;             //if destroy the instance .
  Writeln(b.campo2);     // Why the instance exist?
  Write('presione enter para terminar');readln
End.

b.destroy; //if destroy the instance . Writeln(b.campo2); // Why the instance exist?

You have to call b.Free instead of b.Destroy to properly destruct the instance.

And don't forget that the destruction will free the memory, but not override it with some initialization value; so it is possible that b.campo2 will still hold a value.

- Sebastian

* Luis Del Aguila [LDA] [Tuesday, January 28, 2003] wrote:
* subject: [fpc-pascal]Destroy Instance
*

LDA> Type
LDA>   TClase1 = Class
LDA>     campo1:string;
LDA>   End;
LDA>   TClase2 = Class (TClase1)
LDA>     campo2:string;
LDA>   End;
LDA> Var b:Tclase2;
LDA> Begin
LDA>   b:=TClase2.create;
LDA>   b.campo1:='hola';
LDA>   b.campo2:='hola2';
LDA>   Writeln(b.campo2);
LDA>   b.destroy;             //if destroy the instance .
       b.Free ;
LDA>   Writeln(b.campo2);     // Why the instance exist?
LDA>   Write('presione enter para terminar');readln
LDA> End.

8o)

* Best regards ...

Free automatically calls the destructor if the object reference is not nil.