退出程序

Exiting a procedure

我有一些非常简单的代码,但我无法理解。我正在调用一个将(希望)退出该过程的过程。但它并不能完全做到这一点:

procedure quit;
begin
    exit;
end;

我在这里称它为:

If (Ch2 = #13) and (Bar2 = 5) and (Five) Then Quit;

Bar2 基本上是一个字节变量,它包含一个包含不同元素的数组,例如 "display""help""next""prev",以及当然,quit,根据他们的工作,它们都有自己的代码。 Ch2ReadKey 的变量,它接收各种按键,然后允许它执行为该特定命令定义的任何操作。在这种情况下,需要使用 return 键。 Five 是一个布尔运算符,是 运行 和 quit 命令的先决条件。我想这真的没有必要。

顺便说一句,如果有帮助,这是一个单元,而不是一个独立的程序。

有人知道为什么这个 exit 命令不起作用吗?希望这个 post 足够冗长。

谢谢。

exit 语句从找到它的函数或过程中退出。然后 returns 执行调用函数或过程。

要终止进程,请使用 halt