Object in Variable sichern?

[rwachtel]

Zitat von moelski:

[...] LastObject := SpectraII;

Wobei folgendes definiert ist: LastObject : TObject;

Aber so scheint es nicht wirklich zu funktionieren. Denn ein LastObject.Destroy bewirkt gonix.[...]

Wie hast Du das festgestellt? Folgendes funktioniert:

Delphi-Quellcode:

  TKlasseA = class(TObject)
  public
    destructor Destroy; override;
  end;

  TKlasseB = class(TObject)
  public
    destructor Destroy; override;
  end;

implementation

destructor TKlasseA.Destroy;
begin
  ShowMessage('Klasse A sagt Bye-bye...');
  inherited;
end;

destructor TKlasseB.Destroy;
begin
  ShowMessage('Klasse B sagt Bye-bye...');
  inherited;
end;

[...]
var
  KlasseA: TKlasseA;
  Klasse: TObject;
begin
  KlasseA := TKlasseA.Create;
  Klasse := KlasseA;
  Klasse.Free;
end;