Warum funktioniert der Code nicht mehr?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var Zeit:Integer;
begin
Zeit:=StrToInt(ComboBox1.text);
Zeit:=Zeit*60;
dec(Zeit);
case Zeit
of
0 : ExitWindowsEx(EWX_SHUTDOWN,0);
end;
Label4.Caption := Format('
%0.2d:%0.2d:%0.2d',[Zeit
div 3600,Zeit
div 60,Zeit
mod 60]);
end;
Vorher sah er so aus:
Delphi-Quellcode:
var
Zeit : integer = 3600;
//60 x 60 Sekunden
procedure DoSomething;
begin
Windows.Messagebox(0, '
Der Computer wird in 15 Minuten heruntergefahren!','
ACHTUNG',
MB_OK
or MB_ICONINFORMATION);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(Zeit);
case Zeit
of
900 : DoSomething;
//15 Minuten
0 : ExitWindowsEx(EWX_SHUTDOWN,0);
end;
Label1.Caption := Format('
%0.2d:%0.2d:%0.2d',[Zeit
div 3600,Zeit
div 60,Zeit
mod 60]);
end;
Liegt bestimmt daran, das ich den Code aus einer Combobox auslese und deshalb nicht mehr rückwärts läuft.
Kann mir vielleicht jemand bei dem Problem helfen? Habe schon alles probiert!
Danke UC