德爾福 - 獲取與RTTI e地址相同的字段指針

Question

我可以得到與RTTI和地址（字段）的字段相同的指針？

如：

TSomeClass

私人 FSomeField：整數;

...

1）MyPointer =地址（FSomeField）>>從SameField $ 12345

2）RTTI指針>> $ 12345

Answer 1

實際上所有你需要的是讓RTTI場偏移（ TRttiField.Offset）並將其添加到初始對象地址（實例地址）。

type 
    TTest = class(TObject) 
     private 
     FInt : integer; 
     FString : string; 
     FBool : boolean; 
    end; 

var t : TTest; 
    ctx : TRttiContext; 
    f : TRttiField; 
begin 

    t := TTest.Create(); 
    try 
     writeln(Format('FInt: %p',[@t.FInt])); 
     writeln(Format('FString: %p', [addr(t.FString)])); 
     writeln(Format('FBool: %p', [@t.FBool])); 

     writeln('--------------'); 
     //field address using rtti 
     ctx := TRttiContext.Create(); 
     try 
      for f in ctx.GetType(t.ClassType).GetFields() do begin 
       writeln(Format('%s: %8x', [f.Name, NativeInt(t) + f.Offset])); 
      end; 
     finally 
      ctx.Free(); 
     end; 

    finally 
     t.Free(); 
    end; 
    readln; 
end.