Das gleiche Bild in 576 Images laden!

[Hawkeye219]

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