Question

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

Answer 1

　　楼主你好

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

Answer 2

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

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

uses crt;

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

delay(1000);

参数是暂停的毫秒数.

Answer 3

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