Delphi 7 - 如果 (var) = 1,3,5,7 等则执行操作

Question

我的 Delphi 7 是非常基础的，所以如果这看起来是一个愚蠢的问题，我提前道歉。如果数字是 1 或 3 或 5 等，我希望我的代码执行某些操作，或者如果它是 2 或 4 或 6 等，则执行其他操作。任何建议将不胜感激。谢谢

托尼

Answer 1

您可能正在寻找 odd() 函数。

它 returns true 代表 1,3,5,7，它 returns false 代表 2,4,6.

例子

var
  x: Integer;
....
x := ...;
if odd(x) then
  writeln('x is odd')
else
  writeln('x is even')

更一般地说，如果您想测试除二之外的数字的整除性，您可以使用 mod 运算符。 returns一个整数除法的余数。所以

if x mod 3 = 0 then
  writeln('x is divisible by 3')
else
  writeln('x is not divisible by 3')

Delphi 7 - perform operation if (var) = 1,3,5,7 etc