Hallo,
ich kann mir nicht vorstellen, daß Du 576 einzelne TImage-Komponenten auf dem Formular abgelegt hat, Du wirst sie wohl zur Laufzeit erstellen. Warum deklarierst Du nicht ein Array und speicherst dort die Referenzen auf die TImage-Komponenten? Dann kannst Du mit 3 FOR-Schleifen alle Images direkt erreichen:
Delphi-Quellcode:
var i, j, k : Integer;
Bilder : array [1..4, 1..12, 1..12] of TImage;
begin
// Erzeugen der TImage-Komponenten
for i := 1 to 4 do
for j := 1 to 12 do
for k := 1 to 12 do
begin
Bilder[i, j, k] := TImage.Create(Self);
:
end;
:
// Laden der Bilder
for i := 1 to 4 do
for j := 1 to 12 do
for k := 1 to 12 do
Bilder[i, j, k].LoadFromFile ('Bild1.bmp');
end;
Gruß Hawkeye