帕斯卡：“或”不支持类型“Char”

Question

我是新来的，如果我做错了什么，很抱歉！

我正在 Lazarus 中制作一个简单的 Pascal 程序，在编译时遇到此错误：

HWE(16,18) 错误：类型“Char”和“常量字符串”不支持操作“或”

这是它抱怨的部分关于：

Repeat
begin
Readln(style);
If style <> ('e' or 'mp' or 'sa') then
Writeln ('do what I say!')
end
Until style = (e or mp or sa); 

感谢您的帮助！

Answer 1

or 必须与布尔表达式一起使用，例如

(style <> 'e') or (style <> 'mp') or (style <> 'sa')

Answer 2

必须使用 AND 运算符：

If (style <> 'e') AND (style <> 'mp') AND (style <> 'sa') then

（在这种情况下不要使用 OR 运算符）

Answer 3

使用关系运算符和布尔运算符组合两个布尔表达式时，请小心使用括号。

Answer 4

pascal 有一个很好的方法可以使用 Set 来完成此操作，但仅适用于序数类型（例如 CHAR，但不是字符串）：

if not(style in ['e', 'm', 'p']) then
  begin
  DoSomething;
  end

我经常遇到的一个非常常见的用例是检测 TDataSet 是否正在编辑：

if MyDataSet.State in [dsEdit, dsInsert] then
  Begin
  DoSomething;
  End;