Zitat von
himitsu:
Wenn die ComboBox1 nur die 3 Werte hat, könntest du ja auch ein Array verwenden:
Const IntervalArray: Array[0..2] of Integer = (60, 30, 15);
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Interval := IntervalArray[ComboBox1.ItemIndex];
...
oder so:
Timer1.Interval := 60 div IntPower(2,ComboBox1.ItemIndex);
ansonsten ist da glaub ich nicht viel zu kürzen...