Free, FreeAndNil und mehrere Variablen

[blackfin]

wenn du das genau so haben willst, nimm doch nen pointer auf das TObject:

Delphi-Quellcode:

var
  a: TObject;
  b: ^TObject ;

begin
  a := TObject.Create;
  b := @a;

  Memo1.Lines.Clear() ;

  Memo1.Lines.Add('a: ' + IntToStr(Integer(a)));
  Memo1.Lines.Add('b: ' + IntToStr(Integer(b)));
  Memo1.Lines.Add('assigned(b): ' + BoolToStr(Assigned(b^))) ;   // -1 --> true

  a.Free;
  a := nil;

  Memo1.Lines.Add('after free:');

  Memo1.Lines.Add('a: ' + IntToStr(Integer(a)));
  Memo1.Lines.Add('b: ' + IntToStr(Integer(b)));
  Memo1.Lines.Add('assigned(b): ' + BoolToStr(Assigned(b^))) ; // 0 --> false

end;