Prüfen, ob Komponente vorhanden

[cltom]

Hallo DP,

eine bestimmt oftmals gelöste Frage, ich habe auf die Schnelle nichts gefunden, einer von Euch hat das aber vermutlich in 3 sekunden.

Wie kann ich feststellen, ob eine Komponente (die ich zur Laufzeit erzeugt habe), bereits existiert? Ich könnte vielleicht Try - FindComponent machen, das erscheint mir aber wenig elegant.

dank und gruß
tom

[Meflin]

Ähm, wenn du eine Komponente zur Laufzeit erzeugst, solltest du eigentlich selbst sehr gut wissen ob sie nun existiert oder nicht :gruebel:

[cltom]

Zitat:

Zitat von Meflin

Ähm, wenn du eine Komponente zur Laufzeit erzeugst, solltest du eigentlich selbst sehr gut wissen ob sie nun existiert oder nicht :gruebel:

Guter Einwand. :oops: Ich könnte mir merken, welche Komponenten ich erzeugt hatte.

Hintegerund dazu: es wird eine Bibliothek von Images erstellt. Es werden eine Reihe von Bildern eingelesen, für jedes Bild ein image erzeugt und das Image erhält den Dateinamen als Komponentennamen. Im Grunde würde es also wohl tatsächlich genügen, die Liste von Dateinamen aufzuheben, nachdem ich sie erzeugt habe.

Es hat sich ohnehin gelöst, weil offenbar ein Free auf eine nicht existierende Komponente auch keinen Fehler erzeugt ...

[Balu der Bär]

Ich hatte zwar seit Jahren kein Delphi mehr offen, aber sollte sowas nicht gehen? :gruebel:

Delphi-Quellcode:

if(Komponente <> nil) then ShowMEssage('vorhanden');

[dominikkv]

Du kannst mit

Delphi-Quellcode:

if Kompo <> nil then // oder besser mit:
if Assigned(Kopo) then

schauen ob dieser Zeiger auf eine Komponente zeigt. Achtung: es können auch mehrere Zeiger auf diese zeigen (oder sogar auch garkeiner).
Das setzt aber voraus das du beim freigeben des Objekts die Zeiger auch auf NIL setzten musst! Anstatt also Kompo.Free; aufzurufen musst du jetzt FreeAndNil(Kompo); schreiben.

edit:

Zitat:

Zitat von cltom

Es hat sich ohnehin gelöst, weil offenbar ein Free auf eine nicht existierende Komponente auch keinen Fehler erzeugt ...

.Free; überprüft zuerst ob das Objekt existiert, wenn ja wird .Destroy aufgerufen.