Delphi 检查类型声明中的变量值

Question

如何确定变量的值是否在类型声明的范围内。例如。

Type
  TManagerType = (mtBMGR, mtAMGR, mtHOOT);

...

var
  ManagerType: TManagerType;

....


procedure DoSomething;
begin
  if (ManagerType in TManagerType) then
    DoSomething
  else
    DisplayErrorMessage;
end;

谢谢，彼得。

Answer 1

InRange: Boolean;
ManagerType: TManagerType;
...
InRange := ManagerType in [Low(TManagerType)..High(TManagerType)];

<小时/>

正如 Nickolay O. 所指出的 - 而上面的 bool 表达式直接对应于:

(Low(TManagerType) <= ManagerType) and (ManagerType <= High(TManagerType))

编译器不会根据基于单个子范围的立即集检查成员资格来执行优化。因此，[成熟]优化的代码将不太优雅。