我在Delphi(Berlin)中有许多记录结构,我试图使用RTTI递归迭代这些结构。但是代码对内部记录无法正常工作。我在这里做错了什么?
Procedure WriteFields(Const RType : TRttiType;
Const Test : TTestRecord;
Var Offset : integer);
var
RFields : TArray<TRTTIField>;
i : integer;
Val : TValue;
begin
RFields := GetFields(Rtype);
try
for i := Low(RFields) to High(RFields) do
begin
if RFields[i].FieldType.TypeKind <> tkRecord then
begin
Val := rfields[i].GetValue(@Test);
writeln(Format('Field Name: %s, Type: %s, Value: %s, Offset: %d',[
RFields[i].Name,
RFields[i].FieldType.ToString,
Val.ToString,
RFields[i].Offset]));
end
else
begin
WriteLn(Format('------- Inner record : %s',[RFields[i].name]));
//recursively call this routine for the other records, and fields
Writefields(RFields[i].FieldType,Test,Offset);
end;
Offset := OffSet + RFields[i].Offset;
end;
finally
SetLength(RFIelds,0);
end;
end;
这里是我的测试记录结构。
TInfo = packed record
Age : integer;
end;
TTestRecord = packed record
Name : String;
Text : String;
Info : TInfo; //inner record structure
end;
这是我的测试记录数据。
//set a few values on it
Test.Name := 'Fred';
Test.text := 'Some random text';
Test.Info.Age := 50;
这里是运行在控制台应用程序中的代码输出。
Size of 12
Field Name: Name, Type: string, Value: Fred, Offset: 0
Field Name: Text, Type: string, Value: Some text, Offset: 4
------- Inner record : Info
Field Name: Age, Type: Integer, Value: 38642604, Offset: 0
Total offset of bytes read 12
正如您所见,内部记录 Age 返回的值是垃圾值。
rfields[i].GetValue(@Test)
中,你总是传递Test
。它应该是内部记录字段的地址。 - Victoria