知道从tkSet中选择的tkEnumeration

时间:2016-07-04 22:28:19

标签: delphi rtti

我需要执行一个函数来从Object了解所有已发布的属性及其值。除了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;

任何解决方案?谢谢!

1 个答案:

答案 0 :(得分:2)

它与当前编写的输出格式不太匹配,但您可以通过简单地使用 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 属性的相同默认值,现在将输出:

Anchors: [akLeft,akTop]

如果你需要转换为实际的枚举值或以其他格式呈现它们,那么从这个字符串中提取单个成员名称并使用它们获取值或以任何格式呈现数据应该是一个相对简单的练习。你需要。