退出程序
Exiting a procedure
我有一些非常简单的代码,但我无法理解。我正在调用一个将(希望)退出该过程的过程。但它并不能完全做到这一点:
procedure quit;
begin
exit;
end;
我在这里称它为:
If (Ch2 = #13) and (Bar2 = 5) and (Five) Then Quit;
Bar2
基本上是一个字节变量,它包含一个包含不同元素的数组,例如 "display"
、"help"
、"next"
和 "prev"
,以及当然,quit
,根据他们的工作,它们都有自己的代码。
Ch2
是 ReadKey
的变量,它接收各种按键,然后允许它执行为该特定命令定义的任何操作。在这种情况下,需要使用 return 键。
Five
是一个布尔运算符,是 运行 和 quit
命令的先决条件。我想这真的没有必要。
顺便说一句,如果有帮助,这是一个单元,而不是一个独立的程序。
有人知道为什么这个 exit
命令不起作用吗?希望这个 post 足够冗长。
谢谢。
我有一些非常简单的代码,但我无法理解。我正在调用一个将(希望)退出该过程的过程。但它并不能完全做到这一点:
procedure quit;
begin
exit;
end;
我在这里称它为:
If (Ch2 = #13) and (Bar2 = 5) and (Five) Then Quit;
Bar2
基本上是一个字节变量,它包含一个包含不同元素的数组,例如 "display"
、"help"
、"next"
和 "prev"
,以及当然,quit
,根据他们的工作,它们都有自己的代码。
Ch2
是 ReadKey
的变量,它接收各种按键,然后允许它执行为该特定命令定义的任何操作。在这种情况下,需要使用 return 键。
Five
是一个布尔运算符,是 运行 和 quit
命令的先决条件。我想这真的没有必要。
顺便说一句,如果有帮助,这是一个单元,而不是一个独立的程序。
有人知道为什么这个 exit
命令不起作用吗?希望这个 post 足够冗长。
谢谢。