Problem mit Bilder laden

[DeddyH]

Mit case statt der If-Abfragen wäre das Ganze aber übersichtlicher (und AFAIR auch schneller).

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const Pfad = 'C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\';
begin
  Fortschritt := Fortschritt + 1;
  case Fortschritt of
    1: Image1.Picture.LoadFromFile(Pfad + 'X_Wing3.jpg');
    2: Image1.Picture.LoadFromFile(Pfad + 'X_Wing5.jpg');
    3: Image1.Picture.LoadFromFile(Pfad + 'X_Wing7.jpg');
  end;
end;