Entwickler-Ecke

Sonstiges (Delphi) - Programmlauf verzögern


mhsteuer - Di 01.04.03 11:52
Titel: Programmlauf verzögern
Wie kann man in Delphi den Programmablauf verzögern??? (Ich such eine vergleichbare Funktion zu "delay" in Turbo Pascal)


LCS - Di 01.04.03 12:00

Hi
du kannst dazu die API-Funktion Sleep verwenden.

Gruss Lothar


Aya - Di 01.04.03 12:01

Hi,

also vergleichbar mit Delay ist in Delphi Sleep(x)

Dadurch wird halt das Programm komplett angehalten... ist eigentlich nich die feinste lösung aber ok.. manchmal isses sinnvoll ;)

Au'revoir,
Aya~


Delete - Di 01.04.03 12:12


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) ›= msec;
end;


G-McKree - Fr 04.04.03 23:07

ich habs mal mit der TTimer Komponente versucht, aber das Ding hat bei mir sehr ungenau getickt (+/- 33% der Zeit)


Delete - Sa 05.04.03 03:29

G-McKree hat folgendes geschrieben:
ich habs mal mit der TTimer Komponente versucht, aber das Ding hat bei mir sehr ungenau getickt (+/- 33% der Zeit)

Logo. WM_TIMER Nachrichten aber die geringste Priorität im System. Und wenn dein Fenster viele Nachrichtenn abzu arbeiten hat, dann kommen sie eben nicht immer Punkt genau an.