delphi - TValue.AsType 与Delphi中的枚举类型

Question

用Delphi编写

uses System.Classes;
...
var
  A: TAlignment;
  Value: TValue;
begin
  Value := 0;
  A := Value.AsType<TAlignment>();
end;

在AsType处引发EInvalidCast。

有没有一种方法可以使用TValue从整数值转换为任何枚举类型？

这当然是显而易见的答案：

A := TAlignment(Value);

但我希望提供一个也可以与其他类型一起使用的通用函数。

Answer 1

这似乎做到了：

  if (PTypeInfo(TypeInfo(TAlignment))^.Kind = tkEnumeration) and (Value.TypeInfo.Kind = tkInteger ) then
    case System.TypInfo.GetTypeData(TypeInfo(TAlignment))^.OrdType of
      otUByte, otSByte: PByte(@A)^ := Value.AsInteger;
      otUWord, otSWord: PWord(@A)^ := Value.AsInteger;
      otULong, otSLong: PInteger(@A)^ := Value.AsInteger;
    end
  else
    A := Value.AsType<TAlignment>();

其中TAlignment在通用函数中也可以是T。

（从TRttiEnumerationType.GetValue复制了想法）