Delphi 从TK集合中了解所选TK值
我需要做一个函数,从一个对象中了解所有已发布的属性及其值。除了tkSet属性之外,我已经完成了一个函数来实现这一点。我可以从tkSet获取tkEnumeration元素,但我不知道如何知道是否选择了tkEnumeration 这是我的职责Delphi 从TK集合中了解所选TK值,delphi,rtti,Delphi,Rtti,我需要做一个函数,从一个对象中了解所有已发布的属性及其值。除了tkSet属性之外,我已经完成了一个函数来实现这一点。我可以从tkSet获取tkEnumeration元素,但我不知道如何知道是否选择了tkEnumeration 这是我的职责 procedure TForm1.GetObjectProperties(Obj: TObject; List: TStrings; Level: Integer); function GetSubPropObject(Obj: TObj
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;
procedure TForm1.GetObjectProperties(对象:TObject;列表:TStrings;
级别:整数);
函数getSubProObject(对象:TObject;APropName:string):TObject;
变量
PropInfo:PPropInfo;
开始
结果:=无;
尝试
PropInfo:=GetPropInfo(对象,APropName);
如果在[tkClass]中指定了(PropInfo)和(PropInfo.PropType^.Kind),则
开始
结果:=GetObjectProp(Obj,PropInfo);
结束;
除了
关于E:Exception-do
List.Add(Obj.ClassName+'-'+E.Message);
结束;
结束;
//==>通过此过程,我从tkSet获取tkEnumeration元素
过程GetSetInformation(AOrdTypeInfo:PTypeInfo;空格:string);
变量
OrdTypeData:PTypeData;
TypeNameStr:string;
TypeKindStr:字符串;
MinVal,MaxVal:整数;
i:整数;
开始
空格:=空格+“”;
//获取TTypeData指针
OrdTypeData:=GetTypeData(AOrdTypeInfo);
//获取类型名称字符串
//TypeNameStr:=字符串(AOrdTypeInfo.Name);
//获取类型类型字符串
//TypeKindStr:=GetEnumName(TypeInfo(TTypeKind),Integer(AOrdTypeInfo^.Kind));
MinVal:=OrdTypeData^.MinValue;
MaxVal:=OrdTypeData^.MaxValue;
如果AOrdTypeInfo^.Kind=tkSet,则
GetSetInformation(OrdTypeData^.CompType^,空格);
如果AOrdTypeInfo^.Kind=tkEnumeration,则
对于i:=MinVal到MaxVal do
添加(空格+GetEnumName(AOrdTypeInfo,i));
结束;
变量
ctx:trtti上下文;
rt:trtti型;
财产:信托财产;
Tmp:字符串;
i:整数;
开始
如果未分配(Obj)或未分配(列表),则退出;
Tmp:='';
对于i:=0到(级别*10)do
Tmp:=Tmp+'';
ctx:=TRttiContext.Create;
尝试
rt:=ctx.GetType(Obj.ClassType);
对于rt.GetProperties中的prop
开始
如果不是prop.IsWritable,则
继续;
如果[tkMethod,tkPointer]中有TRttiInstanceType(prop.PropertyType).TypeKind,则
继续;
如果道具可见性已发布,则
继续;
尝试
//List.Add(Tmp+prop.Name++)('+string(prop.GetValue(Obj.TypeInfo.Name)+'):'+prop.GetValue(Obj.ToString);
case TRttiInstanceType(prop.PropertyType).typeking
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)+'):'+floatostr(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);
tk消耗:
List.Add(Tmp+prop.Name+”(“+string(prop.GetValue(Obj.TypeInfo.Name)+”):“+GetEnumName(prop.GetValue(Obj.TypeInfo),Ord(prop.GetValue(Obj.Kind));
tkSet:
开始
List.Add(Tmp+prop.Name+”(“+string(prop.GetValue(Obj.TypeInfo.Name)+”):”);
GetSetInformation(属性GetValue(Obj).TypeInfo,Tmp);
结束;
其他的
List.Add(Tmp+prop.Name++('+string(prop.GetValue(Obj.TypeInfo.Name)+'+'--'+GetEnumName(TypeInfo(TTypeKind)、Ord(TRttiInstanceType(prop.PropertyType).TypeKind));
结束;
除了
添加(Tmp+prop.Name+'ERROR TypeCast');
结束;
如果TRttiInstanceType(prop.PropertyType).TypeKind=tkClass,则
GetObjectProperties(GetSubProObject(对象,属性名称),列表,级别+1);
结束;
最后
免费;
结束;
结束;
有解决办法吗?谢谢 它与当前编写的输出格式不太匹配,但是您可以通过使用值本身的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]
如果您需要转换为实际的枚举值或以其他格式显示它们,则从该字符串中提取单个成员名称并使用它们获取值或以您需要的任何格式显示数据应该是一个相对简单的练习。对于我对预期输出格式的拙劣解释,我深表歉意。这不完全是我搜索的,但我想我可以用它来确定我想要什么。我寻找一种“模拟”对象检查器的方法。例如,我希望返回akLeft:true或akTop:false正如答案中所解释的那样,我知道这不是您发布的代码中的格式,但如何显示结果取决于您。您已经知道如何获取适用于集合的所有枚举成员名称。现在,您还知道了如何(轻松地)仅获取集合中那些成员的名称(这是一个问题)。剩下的只是字符串解析和格式设置。:)