如何让Free pascal 程序中途停止运行1秒钟然后继续运行?

2025-03-22 00:44:53
推荐回答(3个)
回答1:

  楼主你好

  首先在程序开始写一句: uses crt;意思是调用crt单元,然后就可以使用crt单元里的函数了。
  注意:程序开头可以先写program xxxxx;但是下一行必须写uses crt;
在你要暂停的时候就用delay函数
delay(x);x是一个整数,单位是毫秒。所以停止1秒就是delay(1000);
求采纳!

回答2:

可以使用crt库中的delay函数.

在程序一开始引入一下crt单元:

uses crt;

然后需要暂停的时候,调用delay函数:

delay(1000);

参数是暂停的毫秒数.

回答3:

(绕过msvcrt)Windows库的Sleep
procedure Sleep(time:word);stdcall;external 'kernel32.dll';