Hilfe beim Quelletext kürzen

[glkgereon]

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...