delphi - 正确的 'in' 运算符用法

Question

考虑以下过程

procedure InTests;
var
  N, K: Integer;

begin
  N:= 1111;
  if N in [6, 8, 10]          // this is correct, readable and effective code
    then ShowMessage('OK');

  K:= 11;
  if N in [6, 8, 10, K]       // this is correct but less effective
    then ShowMessage('OK');   //  (compiler creates local 16-bytes set var)

  K:= 1111;
  if N in [6, 8, 10, K]       // this is a bug (K > 255)
    then ShowMessage('OK');
end;

in 运算符代替 if 链

  if (N = 6) or (N = 8) or (N = 10)
    then ShowMessage('OK');

使代码更加紧凑和可读，但 Delphi 文档对此没有提及，您应该意识到潜在的问题。

问题是:例如，in 运算符是否应该仅在括号中使用常量

  if N in [6, 8, 10]
    then ShowMessage('OK');

被认为是 Delphi 中的良好实践吗？

Answer 1

这绝对是一个很好的做法。它使代码更具可读性，并且消除了对逻辑运算符、括号等的需要。我总是会使用 in 进行这样的测试。

唯一的缺点是 Delphi 对 sets 的支持非常有限。 (基本序数类型的值不得超过 256 个)。但是，如果您不受这些限制的约束，那么您应该毫不犹豫地使用 in。