delphi - 如何使用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，请阅读 remarkable articles about RTTI作者:罗伯特·洛夫。对于这个问题，特别是这个关于Properties and Fields .