获取基于名称而不是序数值的枚举类型时遇到了问题。我需要在类的属性的RTTI循环中完成这项工作。我尝试过使用GetEnumName和TRTTIEnumerationType.GetName，但似乎无法从TRTTIProperty示例中将它们组合在一起。

请帮帮忙好吗？(下面是框架代码示例)

uses
      RTTI, TypInfo;

    type 
      TCustomColor = (ccBlack, ccBrown, ccBlue);

      TMyClass = class
      public
        property CustomColor: TCustomColor;
      end;

    procedure Output;
    var
      rc : TRTTIContext;
      rt : TRTTIType;
      rp : TRTTIProperty;
      mc : TMyClass;
    begin
      mc.CustomColor := ccBlue;
      rt := rc.GetType(mc.ClassType);
      for rp in rt.GetProperties do
        if rp.PropertyType.TypeKind = tkEnumeration then
        begin
          // TODO: Retrieve 'ccBlue' from the property
        end;
    end;

    procedure Input;
    var
      n, s : String;
      o : TObject;
      rc : TRTTIContext;
      rt : TRTTIType;
    begin
      n := 'CustomColor';
      s := 'ccBlue';
      // NOTE: o is instantiated from a string of it's classtype
      o := (rc.FindType('MyClass') as TRTTIInstanceType).MetaClassType.Create;
      rt := rc.GetType(o.ClassType);
      rt.GetProperty(n).SetValue(o, ???);  // TODO: set o.CustomColor appropriately
    end;