检查某个值是否在集合中的替代方法

Question

我有以下代码。它看起来很难看，如果该值等于以下值之一，则执行某些操作。

var
  Value: Word;
begin
  Value := 30000;
  if (Value = 30000) or (Value = 40000) or (Value = 1) then
    do_something;
end;

我想重构代码如下：

var
  Value: Word;
begin
  Value := 30000;
  if (Value in [1, 30000, 40000]) then // Does not work
    do_something;
end;

但是，重构后的代码不起作用。我假设 Delphi 中的有效集仅接受字节类型的元素。是否有任何好的替代方案来重构我的原始代码（除了用例之外）？

Answer 1

我想是这样的吗？

case value of
  1, 30000, 40000: do_somthing
end;

Answer 2

使用开放数组怎么样？

function ValueIn(Value: Integer; const Values: array of Integer): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := Low(Values) to High(Values) do
    if Value = Values[I] then
    begin
      Result := True;
      Break;
    end;
end;

示例（伪代码）：

var
  Value: Integer;
begin
  Value := ...;
  if ValueIn(Value, [30000, 40000, 1]) then
    ...
end;

Answer 3

有一个用于较大位集的类，请参阅 Classes.TBits。

虽然它不能轻松地执行常量表达式，但它在某些其他情况下可能很有用。