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

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;