Images laden

[Helmi]

Hallo,

mittels FindComponent kannst du Komponenten anhand des Names suchen.

Das würde dann etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  Pfad = 'C:\derOrdnerderdieBilderbeinhaltet\';

var
  i: Integer;
  S: String;
  Image_Temp: TImage;

begin
  for i := 1 to 60 do
    begin
      //Image anhand des Namen suchen und in Temp-Variable laden
      Image_Temp := FindComponent(Format('Image%d', [i])) as TImage;

      //Dateiname aufbauen
      S := Pfad + Format('Bild%d.jpg', [i]);

      //Image und Datei vorhanden? - Datei in Image laden
      If Assigned(Image_Temp) and FileExists(S) then
        Image_Temp.Picture.LoadFromFile(S);
    end;
end;

Du solltest unbedingt den Pfad des Bildes mitangeben um sicher zu sein, dass das Bild auch wirklich gefunden wird.