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);