Hilfe beim Quelletext kürzen

[marabu]

Nur eine Detailstudie:

Delphi-Quellcode:

{
case ComboBox1.ItemIndex of
  0: Timer1.Interval:=60;
  1: Timer1.Interval:=30;
  2: Timer1.Interval:=15;
end;
}

with ComboBox1, Timer1 do
  Interval := 60 shr ItemIndex;

Und noch eine:

Delphi-Quellcode:

{
if winkel>360 then winkel:=0;
}
winkel := winkel mod 360;

Grüße vom marabu