Hallooohoo,
Ich habe das Problem, dass ich die Instanz eines Objektes überprüfen möchte ob das Ursprungsobjekt noch existiert, bzw. den Inhalt der Pointer Adresse überprüfen ob überhaupt noch Inhalt vorhanden ist.
Aaaalso ich habe ein Objekt der Klasse TEgal:
MeinObjekt := TEgal.Create;
Jetzt mache ich eine Instanz des Objektes mit einem untypisierten Pointer:
Delphi-Quellcode:
MeineInstanz: Pointer;
MeineInstanz := MeinObjekt;
Jetzt vernichte ich das Ursprungsobjekt:
FreeAndNil(MeinObjekt);
Die .Free Methode sollte ja den Speicher freigeben
Und jetzt möchte ich gerne ohne Exeption-Handling anhand der Instanz überprüfen ob das Ursprungsobjekt noch vorhanden ist, so im Sinne von:
if not Assigned(TEgal(MeineInstanz)) then Exit
Aber irgendwie klappt das nicht
, gibt es denn eine Möglichkeit, zu überprüfen ob die Adresse der Instanz noch gültig ist, bzw. inhalt hat? Oder muss ich hier mit Typisiereten Pointern arbeiten wie:
Delphi-Quellcode:
MeineInstanz: ^TEgal;
MeineInstanz := @MeinObjekt;
FreeAndNil(MeinObjekt);
if not Assignet(MeineInstanz^) then Exit;
So, ich hoffe ich habe das jetzt so unverständlich wie möglich geschrieben
Wie macht ihr Objektinstanzen und Prüft auf derer Existenz?
Gruss & vielen Dank