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
Image1.Free;

[smart]

Zitat von SirThornberry:

Das einfachste wäre
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]

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

[smart]

Zitat von mkinzler:

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

Ist so schön einfach, klappt aber nicht. Und mit
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 von smart:

Zitat von mkinzler:

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.

[smart]

Zitat von SirThornberry:

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

Hi.

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

Gruß
Heike

[smart]

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
Form.FindComponent ('Bild'+IntToStr(i)).Free; kommt keine Fehlermeldung, aber es wird nicht gelöscht.

Gruß
Heike