einzelne Komponenten während der Laufzeit löschen?

[smart]

Hallo.

Wie kann ich einzelne Komponenten während der Laufzeit löschen?
Zum Beispiel soll während der Laufzeit Image1 gelöscht werden.
Ich bekomme es nur hin, alle Images zu löschen.

Meine Versuche mit

Delphi-Quellcode:

var temp : TComponent; 
    A: Integer;
begin 
  for A:= ComponentCount - 1 downto 0 do
  begin 
    Temp := Components[A];
    if (Temp is Image[A]) then
    begin 
      Temp.Free ; 
    end; 
  end;

klappen nicht.:-(

Gruß
Heike

[SirThornberry]

Das einfachste wäre

Delphi-Quellcode:

Image1.Free;

[smart]

Zitat:

Zitat von SirThornberry

Das einfachste wäre

Delphi-Quellcode:

Image1.Free;

Entschuldigung, ich hatte verssen zu schreiben, dass mir der Name 'Image1' nicht bekannt ist. Mir ist nur 'Image' bekannt die '1 ... 100' errechnet sich erst wenn die Sache läuft.

Gruß
Heike

[mkinzler]

Delphi-Quellcode:

Form.FindComponent ('Image'+IntToStr(i)).Free;

[smart]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

Form.FindComponent ('Image'+IntToStr(i)).Free;

Ist so schön einfach, klappt aber nicht. Und mit

Delphi-Quellcode:

Form1.FindComponent ('Image'+IntToStr(A)).Destroy;

bekomme ich eine 'Zugriffsverletzung'.

Gruß
Heike

[mkinzler]

Versuch mal die Referenz vor dem Freigeben lokal zwischenzuspeichern

Delphi-Quellcode:

obj: TComponent;
...
obj := Form1.FindComponent(...);
obj.Free;

.Free ist dem .Destroy eindeutig vorzuziehen.

[Sunlight7]

Wie erstellst Du das Image?

Wenn Du es dynamisch erstellst, weis beim erstellen einen Namen zu.

[SirThornberry]

Zitat:

Zitat von smart

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

Form.FindComponent ('Image'+IntToStr(i)).Free;

Ist so schön einfach, klappt aber nicht.

Also mir hat weder der Compiler noch das Programm jemals den Fehler "klappt nicht" ausgegeben. :wink:

[smart]

Zitat:

Zitat von SirThornberry

[Also mir hat weder der Compiler noch das Programm jemals den Fehler "klappt nicht" ausgegeben. :wink:

Hi.

Es kommt ja auch keine Fehlermeldung! Es wird nur nicht gelöscht.

Gruß
Heike

[smart]

Zitat:

Zitat von Sunlight7

Wie erstellst Du das Image?
Wenn Du es dynamisch erstellst, weis beim erstellen einen Namen zu.

Ich erzeuge die Images so

Delphi-Quellcode:

...
Bild[I] := TFigur.Create(Self);
Bild[I].Parent := Form1;
...

Das geht von 0 bis 100. Im laufe einer Berechnung soll eins von den Images gelöscht werden.
Wenn ich jetzt mit lösche

Delphi-Quellcode:

Form.FindComponent ('Bild'+IntToStr(i)).Free;

kommt keine Fehlermeldung, aber es wird nicht gelöscht.

Gruß
Heike

[SirThornberry]

Wenn du den Images keinen Namen gibst kannst du es auch nicht mit FindComponent finden. Aber wie man sieht packst du die Images ja in ein Array (oder eine Liste). Somit kannst du das Bild einfach über

Delphi-Quellcode:

Bild[I].Free

frei geben.

[Sunlight7]

Genau meine Worte :mrgreen:

Zu empfehlen ist, nach .Free die Variable zu löschen, um mit Assign prüfen zu können, ob das Image schon gelöscht wurde.

Delphi-Quellcode:

// Beispiel:
Bild[I].Free;
Bild[I]:=nil;

So tust Du Dir leichter, wenn Du alle im Array befindlichen Images löschen möchtest.

[mkinzler]

Zitat:

Zu empfehlen ist, nach .Free die Variable zu löschen, um mit Assign prüfen zu können, ob das Image schon gelöscht wurde.

Kann auch in einem Aufwasch erledigt werden

Delphi-Quellcode:

// Beispiel:
FreeAndNil(Bild[I]);

[Sunlight7]

Zitat:

Zitat von mkinzler

Kann auch in einem Aufwasch erledigt werden

Vorausgesetzt, die verwendete Delphi Version kann das schon :zwinker:

[mkinzler]

Zitat:

Vorausgesetzt, die verwendete Delphi Version kann das schon Zwinkern

D7 Enterprise sollte das können. ;-)

[Sunlight7]

Zitat:

Zitat von mkinzler

D7 Enterprise sollte das können. ;-)

Auf Deine Verantwortung :mrgreen:
Für alle die nicht D7 oder besser haben, meine Version nehmen :mrgreen:

[SirThornberry]

und es funktioniert auch nur wenn es sich wirklich um ein Array handelt und nicht um ein Property wo eine Get-Methode dahinter steckt.

[smart]

Zitat:

Zitat von mkinzler

D7 Enterprise sollte das können. ;-)

Hi,

doch, klappt. Vielen Dank.
Kann man davor auch so eine Art Sicherheitsabfrage setzen, nach dem Motto

Delphi-Quellcode:

If Bild[I].vorhanden = true Then FreeAndNil(Bild[I]);

oder so?

Gruß
Heike

[mkinzler]

Delphi-Quellcode:

If Assigned()

[Sunlight7]

Ja, kann man:

Delphi-Quellcode:

If Assigned(Bild[I]) then FreeAndNil(Bild[I]);

PS: Vergiss das mit dem = True :zwinker:

[Khabarakh]

Was allerdings vor Free nicht notwendig ist, da es das schon selbst prüft ;) .