erzeugte Images löschen.

[smart]

Hallo Alle!

In einem Projekt erzeuge ich auf einer Form ganz viele Images. Nun möchte ich alle auf einmal löschen. Ich lösche sie mit diesem Code. Das Problem ist, wenn ich jetzt alle Images gelöscht habe und wieder neue erzeugen möchte, hängt sich das Programm auf. Erst bei einem Neustart des Programms klappt es wieder. Was mache ich da falsch?

Delphi-Quellcode:

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

und so erzeuge ich die Images:

Delphi-Quellcode:

Var Mein_Bild : array [0 .. 100] of TImage;
........
Var
A: Integer;
begin
for A := 0 to FileListBox1.Items.Count - 1 do
begin
Nr := Nr + 1;
Mein_Bild[Nr] := TImage.Create(Form1);
  With Mein_Bild[Nr] do
    begin
      Parent := Form1;
      Left := Links;
      Top := Oben;
      Tag := Nr;
      ShowHint := True;
      Hint := 'Nr.: ' + IntToStr(Nr);
      Width := 340;
      Height := 240;
      Stretch := True;
      Proportional := True;
    end;
  end;

Gruß
Heike

[Apollonius]

Der Code zum erzeugen wäre auch ganz interessant. Und wo hängts denn (Debugger)?

[SirThornberry]

warum arbeitest du mit ComponentCount? Du hast doch dein Array of TImage. Gehe dieses einfach durch
erzeugen:

Delphi-Quellcode:

var
  Mein_Bild : array of TImage;
[...]
Var 
A: Integer; 
begin 
  SetLength(Mein_Bild, FileListBox1.Items.Count);
  for A := 0 to FileListBox1.Items.Count - 1 do 
  begin 
    Mein_Bild[A] := TImage.Create(Form1); 
    With Mein_Bild[Nr] do 
    begin 
      Parent := Form1; 
      Left := Links; 
      Top := Oben; 
      Tag := Nr; 
      ShowHint := True; 
      Hint := 'Nr.: ' + IntToStr(Nr); 
      Width := 340; 
      Height := 240; 
      Stretch := True; 
      Proportional := True; 
    end; 
  end;

frei geben:

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to Length(Mein_Bild) - 1 do
    Mein_Bild[i].Free;
  SetLength(Mein_Bild, 0);

[dajuhsa]

warum setlength? is doch statisch das array oder?

[Alien426]

Nein.

Delphi-Quellcode:

var
  Array[0..20] of TImage;  // statisch
  Array of TImage;         // dynamisch

[dajuhsa]

das is mir klar...

bei SirThornberry is dynamisch das hab ich nich gesehen
das andere von smart is statisch