
如何让Free pascal 程序中途停止运行1秒钟然后继续运行?
3个回答
展开全部
楼主你好
首先在程序开始写一句: uses crt;意思是调用crt单元,然后就可以使用crt单元里的函数了。
注意:程序开头可以先写program xxxxx;但是下一行必须写uses crt;
在你要暂停的时候就用delay函数
delay(x);x是一个整数,单位是毫秒。所以停止1秒就是delay(1000);
求采纳!
首先在程序开始写一句: uses crt;意思是调用crt单元,然后就可以使用crt单元里的函数了。
注意:程序开头可以先写program xxxxx;但是下一行必须写uses crt;
在你要暂停的时候就用delay函数
delay(x);x是一个整数,单位是毫秒。所以停止1秒就是delay(1000);
求采纳!

2023-06-12 广告
Linux 嵌入式系统中,USB 启动模式能够烧写 ARM 的 uboot 的原因主要有以下几个方面:1. USB 启动模式相对于传统的 BIOS 启动模式来说,具有更高的兼容性和灵活性,可以支持更多的硬件设备和操作系统。2. USB 启动...
点击进入详情页
本回答由浙江启扬智能科技有限公司提供
展开全部
可以使用crt库中的delay函数.
在程序一开始引入一下crt单元:
uses crt;
然后需要暂停的时候,调用delay函数:
delay(1000);
参数是暂停的毫秒数.
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
(绕过msvcrt)Windows库的Sleep
procedure Sleep(time:word);stdcall;external 'kernel32.dll';
procedure Sleep(time:word);stdcall;external 'kernel32.dll';
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询