3 Timer für eine gleichmäßige Beschleunigung

[bitsetter]

Delphi-Quellcode:

begin
  for j:=1to 40 do begin
    vx[j]:= 1000 div ((41-j)*2);
  end; //VX[40]:=500;1. Mal 500
  VX[41]:=999999 ;
  for k:=42to 81 do begin
    vx[k]:= 1000 div ((k-41)*2);//versuch mal mit vx[k]:= 1000 div ((k-41)*2)+ 1
  end; //VX[42]:=500;//2. Mal 500

Delphi-Quellcode:

  if rechtsklick then begin
    for i := 81 downto 2 do begin
      if (vxTimer.Interval=vx[i]) and not abbruchderschleife then begin
        vxTimer.Interval:=vx[i-1];//hier mal einen Breakpoint setzen! Interval ist entweder 500 oder 999999, da 500 2 Mal im Array vorkommt einmal vor 999999 und einmal dahinter, daduch wird immer hin und her geschaltet