Wait(Time)?

[Teddyman]

Hallo,
habe folgende Wait procedure benutzt:

Delphi-Quellcode:

procedure Wait(time:word);
var start: integer;
begin
 start := GetTickCount;
 while GetTickCount - start <= time do
 Application.ProcessMessages;
end;

Dieses klappt schon, aber gibt es denn was vergleichbares, besseres?

Danke.

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]

[SirThornberry]

delay(zeit); sollte das gleiche machen

[runger]

Hallo,

bei mir frieren beide Verfahren das aktuelle Fenster ein.
Was mach ich falsch?

Rainer

[Luckie]

Zitat von SirThornberry:

delay(zeit); sollte das gleiche machen

Kennt mein Delphi nicht (D6 Personal).

@runger: Sollte eigentlich nicht sein. Aber da du uns nicht sagst, wie du es benutzt, kann man dir auch schlecht sagen, wo dein Fehler sein könnte.

[Teddyman]

Also, d.h.:

Delphi-Quellcode:

procedure Delay(dwMilliseconds: Longint); 
var 
  iStart, iStop: DWORD; 
begin 
  iStart := GetTickCount; 
  repeat 
    iStop := GetTickCount; 
    Application.ProcessMessages; 
  until (iStop - iStart) >= dwMilliseconds; 
end;

und bei jeder gewünschten Stelle dann: delay(....);
eingeben?

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]

[sakura]

@Teddyman: Nutze bitte in Zukunft selbst die Delphi-Tags um Code darzustellen. [delphi]...[/ delphi]

......

[glkgereon]

ja, denk ich mal....
guter tipp aber die sources...

[capoero]

Hi,
delay

Sleep wäre hier wohl das richtige
sleep(millisekunden);

[glkgereon]

das alte problem bvei sleep:
es friert das komplette prog ein!!!

[Vjay]

Gibt nix besseres, könntest höchstens kombinieren.

Delphi-Quellcode:

procedure Delay(dwMilliseconds: Longint); 
var 
  iStart, iStop: DWORD; 
begin 
  iStart := GetTickCount; 
  repeat 
    iStop := GetTickCount; 
    Application.ProcessMessages; 
    sleep(100);
  until (iStop - iStart) >= dwMilliseconds; 
end;

Damit du nicht 100% cpu fährst. Oder benutz für deine Aufgaben den besseren und ordentlichen Weg, sprich: Timer bzw. Threads.