Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-pascal / 2006-03

platform independant wait

4 messages · 3 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Marc Santhoff

Hi,

the subject tells what I'm searching for:

How can i wait a definit amount of time in a platform independant way?

I need to pause a while loop for 1 second. The program should run at least on FreeBSD and Windows.

<snip>
while NOT doStop do begin
{ wait a little }

        doSomethingUseful;
end;
</snip>

At the moment I'm thinking of using something like "Application.ProcessMessages" and measuring the time explicitely, but a simple "Wait(1000)" would be best. :)

TIA,
Marc

Jonas Maebe
to Marc Santhoff
Marc Santhoff wrote
How can i wait a definit amount of time in a platform independant way?

There's the delay() procedure in the crt unit.

Jonas

Vincent Snijders
to Marc Santhoff: the subject tells what I'm searching for: How can i wait a definit amount of time in a…
Marc Santhoff wrote 21 lines
Hi, the subject tells what I'm searching for: How can i wait a definit amount of time in a platform independant way? I need to pause a while loop for 1 second. The program should run at least on FreeBSD and Windows. <snip> while NOT doStop do begin { wait a little } doSomethingUseful; end; </snip> At the moment I'm thinking of using something like "Application.ProcessMessages" and measuring the time explicitely, but a simple "Wait(1000)" would be best. :)

What about sleep:
http://www.freepascal.org/docs-html/rtl/sysutils/sleep.html

Vincent

Marc Santhoff
to Vincent Snijders
Vincent Snijders wrote 25 lines
Marc Santhoff wrote: > Hi, > > the subject tells what I'm searching for: > > How can i wait a definit amount of time in a platform independant way? > > I need to pause a while loop for 1 second. The program should run at > least on FreeBSD and Windows. > > <snip> > while NOT doStop do begin > { wait a little } > > doSomethingUseful; > end; > </snip> > > At the moment I'm thinking of using something like > "Application.ProcessMessages" and measuring the time explicitely, but a > simple "Wait(1000)" would be best. :) > What about sleep: http://www.freepascal.org/docs-html/rtl/sysutils/sleep.html

Yes, that's it.

Note to myself: do not use old docs for fpc 1.9.4.

Thank you all,
Marc