Hallo
Ich habe ein Problem.
Ich habe ein Programm geschrieben mit dem ich eigentlich nur Bilder schnell hitereinander abspielen möchte.
Hier der Quellcode:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var Fortschritt: Integer;
begin
Fortschritt := Fortschritt + 1;
if Fortschritt = 1 then
begin
Image1.Picture.LoadFromFile('C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\X_Wing3.jpg');
end;
if Fortschritt = 2 then
begin
Image1.Picture.LoadFromFile('C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\X_Wing5.jpg');
end;
if Fortschritt = 3 then
begin
Image1.Picture.LoadFromFile('C:\Dokumente und Einstellungen\Soz1L\Eigene Dateien\Eigene Bilder\X_Wing7.jpg');
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Timer1.Enabled := true;
end;
Wenn ich das Programm starte gibt es keine Fehlermeldung nur eine Warnung das die Veriable möglicherweise nich initialisiert ist. Aber wenn ich auf den Button kliche passiert nicht?
Kannmir jemand helfen?
Landfloh