Source noch mal updated jetzt mit Unit1 =) sorry
Delphi-Quellcode:
case Combobox1.ItemIndex of
// Hour Interval
3: Timer1.Interval := strtoint(Edit1.Text)*1000*60*60 ;
// Minute Interval
2: Timer1.Interval := strtoint(Edit1.Text)*1000*60 ;
// Seconds
1: Timer1.Interval := strtoint(Edit1.Text)*1000 ;
//MilliSeconds
0: Timer1.Interval := strtoint(Edit1.Text) ;
end;
für eine Combobox in der Reihnfolge
MilliSeconds
Seconds
Minutes
Hours
des erspart einem jedes mal in Millisekunden umzurechnen