Pascal 运行 同时执行多个程序

Pascal running multi procedures at the same time

Pascal 运行 可以同时运行多个程序吗?

如果是,谁能提供代码?

因为我想在屏幕上显示时钟(命令提示符)但同时我希望程序也接受输入。

我用

write(DateTimeToStr(now))   

显示当前时间并使用重复循环使其不断闪烁,但重复循环使得无法同时接受输入,因为光标不断闪烁

Pascal 作为一种语言,没有 multiprocessing/multithreading 功能。所以,没有。

现在,我猜您使用这种古老的语言是有原因的,并且可能是在更新的实现中,例如 FreePascal,并且,例如,具有线程实现。为您全面介绍多线程的一般情况和 FreePascal 的详细信息对于一个单一的答案来说肯定太多了,所以去搜索 google 寻找 "freepascal multithreading".

启动 Free Pascal 文本模式IDE,您会看到计时器运行时并未实际使用线程。

事件驱动原则和在空闲时间很长时更新时钟...