Hier noch ein Beispiel,
dass der gemeinsame Speicherbereich nicht für obj1 u. obj2 freigegeben ist:
Delphi-Quellcode:
procedure testFreeAndNil;
var
Temp: TObject;
obj1, obj2: TestKlasse;
begin
obj1 := TestKlasse.Create;
obj1.n := 11;
obj2 := obj1;
FreeAndNil(obj1);
ShowMessage(
//'obj1.n = ' + IntToStr(obj1.n) + #13+ {würde zu Zugriffsverletzung führen}
'obj2.n = ' + IntToStr(obj2.n) + #13+ {Ausgabe: n = 11 !}
//'obj1.ClassName = ' + obj1.ClassName + #13+ {würde zu Zugriffsverletzung führen}
'obj2.ClassName = ' + obj2.ClassName ); {klappt}
end;
obj1 ist durch freeandnil explizit auf nil gesetzt, deswegen knallt es beim Zugriff auf .n. Obj2 ist nicht auf nil gesetzt und der Speicherbereich wurde zufällig noch nicht überschrieben, deswegen klappt der Zugriff noch - das ist aber nich garantiert.
Delphi-Quellcode:
obj1 := TestKlasse.Create;
obj1.n := 11;
obj1.free;
ShowMessage(IntToStr(obj1.n));
Läuft so gut wie immer durch
Ich erinnere mich da an einen Beitrag auf den Delphitagen zu FastMM wo es erstaunlich schwierig war, hier tatsächlich eine Zuggriffsverletzung zu erhalten
