Images laden

**len123**

Hallo zusammen
ich hab ein ordner mit ganz vielen Fotos, die dann alle, in der FormCreate Prozedur in jeweils ein image auf meiner form geladen werden.
Nur is das lästig jedesmal jedes mal:

markieren

Code:

Image1.Picture.LoadFromFile('Bild1.jpg');

zuschreiben, wen man 60 bilder hat.
Kann man das nicht auch anders machen?
Ich denke so in der Richtung:

markieren

Code:

			procedure TForm1.FormCreate(Sender: TObject);

var i: Integer;

begin

for i := 1 to 60 do 

Image1.Picture.LoadFromFile('Bild'+IntToStr(i)+'.jpg'); //es bringt leider nichts weil man i nicht bei image einsetzen kann

i :=i + 1;

until i := 60

end;

Bzw. wie kann das programm ermitteln wie viele bilder in einem Ordner sind, und dann alle in die images laden?

Images laden

Images laden

Forumregeln