Delphi - 提取setter方法的属性名称

Question

在以下类型中:

MyClass = class(TInterfacedPersistent)
private
  FMyProperty: Integer;      
published
  procedure setMyProperty(Value: Integer); virtual;
  property MyProperty: Integer read FMyProperty write setMyProperty;

我想通过RTTI知道"MyProperty"属性的setter方法的名称.我尝试过以下方法:

    procedure ShowSetterMethodsNames(pMyObject: TObject);
    var
      vPropList: TPropList;      
      vCount, I: Integer;
    begin
      vCount:= GetPropList(pMyObject.ClassInfo, tkProperties, @vPropList);

      for I:= 0 to vCount -1 do
      begin
          if Assigned(vPropList[I]^.SetProc) then
            ShowMessage(pMyObject.ClassType.MethodName(vPropList[I]^.SetProc));
      end;
    end;

虽然指针不是nil,但我所有的都是空消息.有人给我一些小费吗？

PS:我正在使用Delphi XE4,我知道我应该使用扩展RTTI而不是经典,但无论如何,我不能在两个功能中做我想要的...所以,任何帮助将不胜感激.谢谢你的回复.

---

最终版,问题解决了:

这是代码工作,基于(我的朋友和...的帮助)RTTI单元(TRTTIInstanceProperty类的DoSetValue方法):

procedure ShowVirtualSettersNames(pObject: Pointer);
var
  vSetter, vPointer: Pointer;
  vPropList: TArray<TRttiProperty>;
  vProp: TRttiProperty;
begin
  vPropList:= RTTIUtils.ExtractProperties(TObject(pObject).ClassType); // Helper to get properties from a type, based in extended RTTI

  for vProp in vPropList do
  begin
    vPointer:= TRttiInstanceProperty(vProp).PropInfo^.SetProc;
    vPointer:= PPointer(PInteger(pObject)^ + Smallint(vPointer))^;    
    ShowMessage(TObject(pObject).ClassType.MethodName(vPointer));
  end;
end;

这仅适用于虚拟设置,对于静态消息是空的.感谢大家!

Answer 1

读c:\rad studio\9.0\source\rtl\common\System.Rtti.pas

procedure TRttiInstanceProperty.DoSetValue

属性的设置者可以是

• 一个字段（变量）
• 静态过程
• 虚拟程序（您的案例）

这些情况PropInfo^.SetProc对其值具有不同的语义。直接寻址仅适用于静态程序。对于虚拟方法，您添加 VMT 偏移量并从该内存单元获取代码地址，如我提到的代码中指定的那样（但由于版权原因不会引用）。

或者您可以使用TRttiProperty.SetValue并让 Delphi 完成所有这些底层细节。请参阅http://docwiki.embarcadero.com/Libraries/XE2/en/System.Rtti.TRttiProperty.SetValue

编辑：

1. 代码被删除 - 它没有逐字工作，主题启动器提供了工作版本。
2. 关于并且我知道我应该使用Extended RTTI而不是classic一个- 这是有问题的主张。Extended RTTI众所周知，它的工作速度明显比经典的慢。不知道是否有人对它进行了分析，但我怀疑这主要是由于TValue. 你可以google一下，发现很多人抱怨TValue实施速度慢，并提供了效率固定的替代方案。然而，由于Extended RTTI仅使用库存，TValue它无法从这些实现中受益，并且仍然比经典实现慢。