Forsinkelse i en løkke

øhh, en løkke mere der ca. tager 1/10 sek, mem hvorfor ikke bruge en timer?

Fordi jeg gerne vil have det i kode, da jeg er en af de mennesker, der hellere vil skrive to siders kode, frem for at bruge to komponenter.

...Jeg ville bare høre om der er en funktion i Delphi til formålet

Tror ikke, men hvis den kan tæller micro sekunder, kan du jo lave en while der kører indtil indtil der er gået den tid.

Men jeg er så nok en af de mennesker der ikke helt kan forstå hvorfor man ikke bruge de komponenter der allerede er lavet, hvis man kan spare en masse, og det er gennemtestet. :-P

While vil jeg nødigt bruge, da jeg af erfaring har set det sløve processen. Men flg. virker perfekt:

procedure Delay(Msecs : Integer);
var
  FirstTickCount : LongInt;
begin
  FirstTickCount := GetTickCount;

  repeat
    Application.ProcessMessages;
    Sleep(1);
  until ((GetTickCount - FirstTickCount) >= LongInt (Msecs));
end;

...Endnu engang er grunden til at jeg gerne laver mine programmer "besværlige" nok min endeløse nysgerrighed for hvordan det fungerer. -Men jeg takker for dit forsøg.

Kunne du ikke bare sige
sleep(100)

Tallet angiver millisekunder.

Stoney

han vil selv lave noget

For lige at give mit B7, så er stoney's forslag det mindst CPU krævende. Sleep(100) fortæller styresystemet at dit program ikke skal have CPU-tid i de næste 100 ms.

Ja, sleep(100) er godt nok den mindst krævende, men den har den bivirkning at formen fryser fast på skærmen til tiden er gået, og det var jeg ikke interesseret i.

Jeg plejer at bruge denne kode

procedure Delay(ms: longint);
var
  TheTime: LongInt;
begin
  TheTime := GetTickCount + ms;
  while GetTickCount < TheTime do Application.ProcessMessages;
end;