Arrays und for-Schleifen

[Die Muhkuh]

Ausgehend von Markus' Vorschlag:

Delphi-Quellcode:

Bilder : Array[1..48] of TPicture; { oder TBitMap, TGraphic, ...}

for h := 1 to 48 do
begin
    Bilder[i] := (FindComponent('I_'+IntToStr(i)) as TImage).Picture;
end;