gleichmäßige Beschleunigung

[Klaus01]

Delphi-Quellcode:

if linksklick then 
  begin
    for i := 1 to 40 do 
      begin
        if vxTimer.Interval=vx[i] then 
          begin
            vxTimer.Interval:=vx[i+1];

            if i+1 >21 then 
              begin 
                links:=true;  
                rechts:=false; 
              end 
            else
              if i+1 < 21 then 
                begin 
                  links:=false; 
                  rechts:=true ; 
                end 
              else
                begin  
                  links:=false; 
                  rechts:=false;
                end;
         end;
  end;

In Deinem Code wird immer die gesammte Schleife von 1 bis 40 durchlaufen.
Sollte nicht aus diese Schleife ausgestiegen werden wenn der Intervall in
dem Array gefunden wurde und das nächste ausgewählt und zugewieden wurde?

Ausserdem wird ich diesen Timer danach disablen und erst dann wieder enablen
wenn die Kugel den nächsten Schritt getan hat.

Grüße
Klaus