如何使用 RTTI 在 Delphi 中获取访问字段？

Question

考虑以下几点：

TFieldType = class
  fValue: string;
end;

TMainClass = class
private
  Ffield: TFieldType;
public
  function GetValue: string;
end;

在 TMainClass.GetValue 中，我尝试获取 TMainClass 字段的值：

function TMainClass.GetValue;
begin
  vCtx := TRTTIContext.Create;
  vType := vCtx.GetType(Self.ClassInfo);
  for vField in vType.GetFields do
    vField.GetValue(
        //Here's the trouble, because i don't know how to get the instance
    );

是否有其他方法可以获取作为另一个类的实例的字段值？

Answer 1

您必须将实例作为 GetValue 的参数传递

vField.GetValue(self);

为了更好地理解 Rtti，请阅读 Robert Love 的 remarkable articles about RTTI。对于这个问题，专门针对Properties and Fields这个问题。