delphi2010遍历rtti的记录

Question

type 
myrec = record 
id:dWord; 
name:array[0..31] of WideChar; 
three:dword; 
count:dword; 
ShuXing:Single; 
ShuXing2:dword; 
ShuXing3:dWORD; 

    end; 

var 
    Form1: TForm1; 
    mystr:TMemoryStream; 
    nowmyrec:myrec; 

implementation 
USES Rtti; 
{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 


var 
    rttiContext: TRttiContext; 
    rttiType: TRttiType; 
    fields: TArray<TRttiField>; 
    item: myrec; 
    i:word; 
begin 
mystr:=TMemoryStream.Create; 
mystr.LoadFromFile(ExtractFilePath(Application.exename)+'1.data'); 
mystr.Position:=20; 
mystr.readbuffer(nowmyRec,88); 




rttiType := rttiContext.GetType(TypeInfo(myRec)); 
    fields := rttiType.GetFields; 
    for i := low(fields) to high(fields) do 
    begin 
Memo1.Lines.Add(fields[i].GetValue(@nowmyRec).ToString); 


    end; 

end; 

end. 

myrec.name是中文字符，myrec.name的长度是64字节，我无法读取myrec.name备忘录，请帮助我！

Answer 1

我在德尔福2010年，我发现你的代码有几个问题。首先，我无法让RTTI方法使用字符数组的内联声明。我把它改为：

type 
    TCharArray = array[0..31] of WideChar; 
    TRec = record 
    id:dWord; 
    name:TCharArray; 
    end; 

如果声明数组内联，你做的方式，在调用GetValue引发AV。这可能是在XE中修复的，或者很可能我错误地使用了RTTI。

其次，你需要数组特殊处理，而不是标量值：

procedure Main; 
var 
    i, j: Integer; 
    rec: TRec; 
    rttiContext: TRttiContext; 
    rttiType: TRttiType; 
    fields: TArray<TRttiField>; 
    val: TValue; 
    s: string; 
begin 
    rec.id := 1; 
    rec.name := 'Hello Stack Overflow'; 

    rttiType := rttiContext.GetType(TypeInfo(TRec)); 
    fields := rttiType.GetFields; 
    for i := low(fields) to high(fields) do begin 
    val := fields[i].GetValue(@rec); 
    if val.IsArray then begin 
     s := ''; 
     for j := 0 to val.GetArrayLength-1 do begin 
     s := s+val.GetArrayElement(j).ToString; 
     end; 
     Writeln(s); 
    end else begin 
     Writeln(val.ToString); 
    end; 
    end; 
end; 

输出：

1 
Hello Stack Overflow 

这显然不是生产代码，但它至少应该让你回来在路上！

P.S.这是我第一次看到新的RTTI功能。它看起来非常漂亮！