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]

Delphi-Quellcode:

delay(zeit);

sollte das gleiche machen

[runger]

Hallo,

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

Rainer

[Luckie]

Zitat:

Zitat von SirThornberry

Delphi-Quellcode:

delay(zeit);

sollte das gleiche machen

Kennt mein Delphi nicht (D6 Personal). :gruebel:

@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 :roll: Mfg, sakura[/edit]

[sakura]

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

...:cat:...

[glkgereon]

ja, denk ich mal....
guter tipp aber die sources... :-D :-D :-D

[capoero]

Hi,
delay :gruebel:

Sleep wäre hier wohl das richtige

Delphi-Quellcode:

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.