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.

[runger]

Hallo
hab einen Timer, der wird alle 2 sec durchlaufen. Darin steht ein delay, wie beschrieb, Hauptfenster ruckelt beim bewegen.

Rainer

[runger]

liegt das vielleicht am Timer?
Rainer

[runger]

Hallo,
es ist tatsächlich so: im Timer funktioniert das nicht. Weiss jemand warum?
Rainer

[glkgereon]

also, ich habs so gemacht (und es funzt):

Delphi-Quellcode:

procedure wait(zeit:integer);
var 
anfang, ende:integer;
begin
anfang:=time;//time ist die aktuelle systemzeit

repeat
Application.Processmessages;//damits eben NICHT einfriert
ende:=time; //zeit wird genommen
until millisecondabetween(anfang, ende)>=zeit; 
//millisecondsbetween, grosses rätsel, was tut die function?????
//richtig!!!!! millisekunden zwiuschen zwei daten / zeiten....

end;

//ja, und das wars auch schon

also, bei mir funzt es so (delphi 6)

[runger]

Hallo,
das glaub ich dir nicht. Dieser Code läuft so nicht. Was ist time?
Gettime oder was.
Rainer

[runger]

Hallo
das ist im Grunde genau der Code der im Timer nicht funktioniert!
Das Fenster friert ein, wenn man versucht es zu bewegen!
Rainer

[runger]

Hallo

millisecondsbetween gibts bei D7 (auch bei D6,D5,D2) nicht!

Rainer

[glkgereon]

nein, bei mir gibts ne function time, die eine TDateTime zurückgibt, die aktuelle Systemzeit.
gibts das bei dir nicht??? :shock:
dann is klar das dann mein prog am ... ist, aber versuch mal das zu ersetzen durch, ..., zb gettime, getsystime, was auch immer...

[glkgereon]

und: das fenster friert NICHT ein!!!
dafür is da ein APPLICATION.PROCESSMESSAGES; drin!!!