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