Delay

[Preexo]

ich suche einen befehl, welcher ein delay wie bei Turbo Pscal ausloest.
sogar meine informatik lehrerin weiss nix...(wen wunderts?)

plz help
thx
Preexo

[turboPASCAL]

Hast Du mal die Suche bemüht ? Delay,

Ansonsten:

Sleep(1000);

[Ultimator]

Delay

[Preexo]

jetz versteh ich net warum jemand so monster viel schreibt, wenns auch kurzer geht...?

Delphi-Quellcode:

procedure delay(msec:longint); 
var 
  start,stop:longint; 
begin 
  start := gettickcount; 
  repeat 
  stop := gettickcount; 
  application.processmessages; 
  until (stop - start ) >= msec; 
end;

dabei reicht sleep(x);

[gsh]

nein nein da gibt es einen unterschied.

Oben lauft die Anwendung ganz normal
Und bei der unteren Methode steckt wärend dieser Schleife die Anwendung

[Preexo]

Zitat:

Und bei der unteren Methode steckt wärend dieser Schleife die Anwendung

bezieht sich auf
Sleep(x); ?

aber is das net besser, wenn alles steckt...? das is doch sinn hinter dem ganzen.
wo zum beispiel wuerde man die laengere variante benutzen?

[glkgereon]

bei Sleep wird auch die ganze Oberfläche eingefroren....kein RePaint, kein verschieben, kein buttonklick.

beim oberen wird nur die aktuelle methode angehalten

probiers einfach aus...

zwei buttons auf ne form, in einen OnClick Sleep(10000), ins andere Delay(10000) rein
dan wirste sehen wo der unterschied ist

[turboPASCAL]

Zitat von gsh:

Oben lauft die Anwendung ganz normal
Und bei der unteren Methode stockt wärend dieser Schleife die Anwendung

Guck mal hier nach: Zeitverzögerung im Code!

Bei Sleep(x) wartet die komplette Anwendung und Messages werden nicht verarbeitet. Bei Delay(X) wartet auch die Anwendung aber Messages werden weiter verarbeitet.

Versuch es mal.

[gsh]

anhalten in der zeile tut er bei beiden varianten ABER aber der längeren wird die GUI neugezeichnet somit erhält man z.b. kein weisses Fenster

[faux]

Andere Frage:
Wo braucht man heutzutage noch Dalay's und Sleep's??