如何获取枚举'；在Delphi中使用RTTI或TypeInfo设置有效范围

我在一个测试项目中使用RTTI来计算枚举值，这是对象上最常见的属性。如果枚举超出范围，我希望显示类似于评估/修改IDE窗口所显示的文本。比如“（越界）255”

下面的示例代码使用TypeInfo在使用

GetEnumName

时，将枚举之外的值的问题显示为访问冲突。任何使用RTTI或TypeInfo的解决方案都会对我有所帮助，我只是不知道测试代码中的枚举类型

program Project60;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,  TypInfo;

Type
  TestEnum = (TestEnumA, TestEnumB, TestEnumC);

const
  TestEnumUndefined = TestEnum(-1);

  procedure WriteEnum(const ATypeInfo: PTypeInfo; const AOrdinal: Integer);
  begin
    WriteLn(Format('Ordinal: %d = "%s"', [AOrdinal, GetEnumName(ATypeInfo, AOrdinal)]));
  end;


var
  TestEnumTypeInfo: PTypeInfo;
begin

  try
    TestEnumTypeInfo := TypeInfo(TestEnum);

    WriteEnum(TestEnumTypeInfo, Ord(TestEnumA));
    WriteEnum(TestEnumTypeInfo, Ord(TestEnumB));
    WriteEnum(TestEnumTypeInfo, Ord(TestEnumC));
    WriteEnum(TestEnumTypeInfo,  Ord(TestEnumUndefined));   //AV

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.

用于从中获取更详细的信息，例如：

procedure WriteEnum（const-ATypeInfo:PTypeInfo；const-AOrdinal:Integer）；
变量
LTypeData:PTypeData；
开始
LTypeData:=GetTypeData（ATypeInfo）；
if（AOrdinal>=LTypeData.MinValue）和（AOrdinal谢谢你。你的例子还让我找到了
TRttiOrdinalType
（其decent
trttineumerationtype
）具有
MinValue
和
MaxValue
procedure WriteEnum(const ATypeInfo: PTypeInfo; const AOrdinal: Integer);
var
  LTypeData: PTypeData;
begin
  LTypeData := GetTypeData(ATypeInfo);
  if (AOrdinal >= LTypeData.MinValue) and (AOrdinal <= LTypeData.MaxValue) then
    WriteLn(Format('Ordinal: %d = "%s"', [AOrdinal, GetEnumName(ATypeInfo, AOrdinal)]))
  else
    WriteLn(Format('Ordinal: %d (out of bound)', [AOrdinal]));
end;