Hallo,
hmm, das ist mir eigentlich klar, dass wenn ich:
FreeAndNil(MeinObjekt);
mache, MeinObjekt = nil, True ist, aber danke
Assigned(...) überprüft ja das selbe.
Mein Problem ist wirklich dann, wenn ich eine Instanz will, also zum Beispiel habe ich mein MeinObjekt erstellt und will das jetzt einem Formular übergeben, welches mir die Daten dieses Objektes ausgibt:
Delphi-Quellcode:
MeinFormular = class(TMeinFormular)
MeineInstanz: TEgal; // Instanz des Objektes welchen Daten angezeigt werden sollen
procedure Anzeigen;
end;
Also erstelle ich mein Objekt und übergebe es dem Formular:
Delphi-Quellcode:
MeinObjekt := TEgal.Create;
MeinFormular.MeineInstanz := MeinObjekt;
Dann möchte ich in der Anzeigen Prozedur die Daten des Instanzobjektes anzeigen:
Delphi-Quellcode:
procedure MeinFormular.Anzeigen
begin
Panel.Caption := MeinObjekt.Name;
end;
So, und wenn ich jetzt irgendwo in meinem Code mein Ursprungsobjekt vernichte:
FreeAndNil(MeinObjekt);
Besitzt das Formular immer noch die Instanz. Wie kann ich jetzt in der Anzeigen-Prozedur überprüfen ob die Instanz noch gültig ist?
Delphi-Quellcode:
procedure MeinFormular.Anzeigen
begin
if Assigned(MeineInstanz) then Exit;
// oder:
if Assigned(TEgal(MeineInstanz)) then Exit;
Panel.Caption := MeinObjekt.Name;
end;
Funktionieren nämlich nicht, bzw. die Instanz zeigt ja immernoch auf was...
und wie zum Herrgottdonnerunddoria mach ich jetzt das?
