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:
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:
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?