delphi - 从tkSet知道选定的tkEnumeration

我需要做一个函数来了解对象中所有已发布的属性及其值。除tkSet属性外，我已经完成了一项功能。我可以从tkSet中获取tkEnumeration元素，但是我不知道知道是否选择了tkEnumeration的方法。

这是我的功能

  procedure TForm1.GetObjectProperties(Obj: TObject; List: TStrings;
    Level: Integer);

    function GetSubPropObject(Obj: TObject; APropName: string): TObject;
    var
      PropInfo: PPropInfo;
    begin
      Result := nil;
      try
        PropInfo := GetPropInfo(Obj, APropName);
        if Assigned(PropInfo) and (PropInfo.PropType^.Kind in [tkClass]) then
        begin
          Result := GetObjectProp(Obj, PropInfo);
        end;
      except
        on E: Exception do
          List.Add(Obj.ClassName + ' ----- ' + E.Message);
      end;
    end;

    // ==> with this procedure I obtains the tkEnumeration elements from a tkSet
    procedure GetSetInformation(AOrdTypeInfo: PTypeInfo; Space: string);
    var
      OrdTypeData: PTypeData;
      TypeNameStr: string;
      TypeKindStr: string;
      MinVal, MaxVal: Integer;
      i: integer;
    begin
      Space := Space + '     ';
       // Get the TTypeData pointer
      OrdTypeData := GetTypeData(AOrdTypeInfo);
       // Get the type name string
      //TypeNameStr := string(AOrdTypeInfo.Name);
       // Get the type kind string
      //TypeKindStr := GetEnumName(TypeInfo(TTypeKind), Integer(AOrdTypeInfo^.Kind));

      MinVal := OrdTypeData^.MinValue;
      MaxVal := OrdTypeData^.MaxValue;

      if AOrdTypeInfo^.Kind = tkSet then
        GetSetInformation(OrdTypeData^.CompType^, Space);

      if AOrdTypeInfo^.Kind = tkEnumeration then
        for i := MinVal to MaxVal do
          List.Add(Space + GetEnumName(AOrdTypeInfo, i));
    end;
  var
    ctx: TRttiContext;
    rt: TRttiType;
    prop: TRttiProperty;
    Tmp: string;
    i: Integer;
  begin
    if not Assigned(Obj) or not Assigned(List) then Exit;

    Tmp := '';
    for i := 0 to (Level * 10) do
      Tmp := Tmp + ' ';

    ctx := TRttiContext.Create;
    try
      rt := ctx.GetType(Obj.ClassType);

      for prop in rt.GetProperties do
      begin
        if not prop.IsWritable then
          Continue;
        if TRttiInstanceType(prop.PropertyType).TypeKind in [tkMethod, tkPointer] then
          Continue;
        if prop.Visibility <> mvPublished then
          Continue;

        try
          //List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ' + prop.GetValue(Obj).ToString);
          case TRttiInstanceType(prop.PropertyType).TypeKind of
            tkInteger, tkInt64:
              List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ' + IntToStr(prop.GetValue(Obj).AsInteger));
            tkFloat:
              List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ' + FloatToStr(prop.GetValue(Obj).AsExtended));
            tkChar, tkString, tkWChar, tkLString, tkWString, tkUString:
              List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ' + prop.GetValue(Obj).AsString);
            tkEnumeration:
              List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ' + GetEnumName(prop.GetValue(Obj).TypeInfo, Ord(prop.GetValue(Obj).Kind)));
            tkSet:
              begin
                List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ');
                GetSetInformation(prop.GetValue(Obj).TypeInfo, Tmp);
              end;
            else
              List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + ') ' + ' --- ' + GetEnumName(TypeInfo(TTypeKind), Ord(TRttiInstanceType(prop.PropertyType).TypeKind)));
          end;
        except
          List.Add(Tmp + prop.Name + ' ERROR TypeCast');
        end;

        if TRttiInstanceType(prop.PropertyType).TypeKind = tkClass then
          GetObjectProperties(GetSubPropObject(Obj, prop.Name), List, Level + 1);
      end;
    finally
      ctx.Free;
    end;
  end;

有什么办法吗？谢谢！

最佳答案

它不太适合当前编写的输出格式，但是您可以通过简单地使用值本身的ToString方法来获取作为集合成员的值的字符串表示形式。

因此，您当前拥有的位置：

       tkSet:
          begin
            List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ');
            GetSetInformation(prop.GetValue(Obj).TypeInfo, Tmp);
          end;

例如，对于表单上的默认锚点，将输出以下内容：

Anchors:
    akLeft
    akTop
    akRight
    akBottom

您可以改写：

       tkSet:
          begin
            List.Add(Tmp + prop.Name + ' (' + string(prop.GetValue(Obj).TypeInfo.Name) + '): ' + prop.GetValue(Obj).ToString);
          end;

对于表单上的“锚点”属性的相同默认值，现在将输出：

Anchors: [akLeft,akTop]

如果您需要转换为实际的枚举值或以其他某种格式显示它们，则应该是一个相对简单的练习，可以从此字符串中提取各个成员名称，然后使用它们来获取值或以所需的任何格式显示数据。