尝试并捕捉帕斯卡

Question

我正在使用 Dev-Pas 1.9.2，并试图确保输入符号或字母值时程序不会崩溃。

我用谷歌搜索了又搜索，但找不到任何关于如何实现这一目标的资源。

非常感谢任何帮助。谢谢！

这是我尝试管理输入的代码：

 Function GetMenuChoice : Integer;
  Var
    OptionChosen : Integer;
  Begin
    Write('Please enter your choice: ');
    Readln(OptionChosen);
    If (OptionChosen < 1) Or ((OptionChosen > 4) And (OptionChosen <> 9))
      Then
        Begin
          Writeln;
          Writeln('That was not one of the allowed options.  Please try again: ');
        End;
    GetMenuChoice := OptionChosen;
  End;

Answer 1

更改您的代码以接受 Char ；如果出于某种原因需要整数，请稍后处理转换。

这在德尔福中有效；除非您不能使用像 ['1'..'4','9'] 这样的集合和集合运算符，否则它应该可以正常工作。

Function GetMenuChoice : Char;
Var
  OptionChosen : Char;
Begin
  repeat
    Write('Please enter your choice: ');
    Readln(OptionChosen);

    If not (OptionChosen in ['1'..'4', '9'])
      Then
        Begin
          Writeln;
          Writeln('That was not one of the allowed options.  Please try again: ');
        End;
  until OptionChosen in ['1'..'4', '9'];
  GetMenuChoice := OptionChosen;
End;

如果您绝对需要返回数字，请将返回类型更改回整数（或字节），然后将最后一行更改为：

GetMenuChoice := Ord(OptionChosen) - 48;  

或

GetMenuChoice := Ord(OptionChosen) - Ord('0');

Answer 2

（除了 Ken White 的）

1. 我认为可以对 char 类型变量使用 READ，并保存用户输入 Enter。

2. 但我会选择字符串类型版本并使用 VAL。

   • 它与编码无关，并且
   • 该原则超出了值 9。
   • 但需要输入，大量输入会弄乱您的屏幕。

对于后者，还有其他方法（例如使用单元 Crt 或 Video），但这可能超出了作业的范围

Answer 3

您真的想接受四种不同的可能输入吗？
（数字 1、2、3、4 和 9）
这就是你现在所要​​求的。

注意：即使像第一个回答者建议的那样进行了更改，您的代码也有一个主要的
问题。如果给出 5 或 Q 会发生什么……你抱怨，然后退出
例行公事。

在原始代码中，如果我输入 100，您将打印“这是不允许的”...
然后返回 100 给调用者。

提示：循环。

提示 2：确保您不会永远循环

顺便说一句，从不这样做：ord（某些字符）- 48
相反，总是使用：ord（某些字符）-ord（'0'）

为什么？两个明显的原因：

1. 可读性。 48 是多少？

2. 正确性。如果您是在非 ASCII 系统上编译的，则 48 可能不是
   0 的字符代码。

0. Stan