Zitat von
moelski:
[...] ich habe folgendes probiert:
Delphi-Quellcode:
SpectraII := TLVSpectraII.Create(Self);
LastObject := SpectraII;
LastObject.free;
Danach habe ich eine Datei geladen die das Objekt SpectraII verwendet. Aber da ich keine
Exception bekommen habe muss es immer noch existent gewesen sein.
Ups, wahrscheinlich war einfach der Speicherbereich zufällig noch nicht überschrieben. Folgendes "funktioniert" auch:
Delphi-Quellcode:
TKlasseA = class(TObject)
public
destructor Destroy; override;
procedure WhoAmI;
end;
implementation
destructor TKlasseA.Destroy;
begin
ShowMessage('Klasse A sagt Bye-bye...');
inherited;
end;
procedure TKlasseA.WhoAmI;
begin
ShowMessage('Ich bin Klasse A.');
end;
[...]
var
KlasseA: TKlasseA;
Klasse: TObject;
begin
KlasseA := TKlasseA.Create;
Klasse := KlasseA;
Klasse.Free;
KlasseA.WhoAmI;
end;