delphi 反射的问题

[强哥83]

type
TA = class(TObject)
s:string;
procedure FC1;
end;

a = TA.create;

用rtti可以反射出TA类的FC1
rtm := TRttiContext.Create.GetType(TA).GetMethod('FC1');
可以得到TA类FC1的地址 rtm.CodeAddress
但现在我想得到 对象 a 的 FC1地址(a.FC1 的 CodeAddress)
请教高手。

[bdmh]

多少实例，他的普通函数地址都是 一样的

[erhan]

要是每个实例都一个的话，系统早爆了

[强哥83]

感谢两位
“普通函数地址都是 一样的”

TMethod.Code //类的函数地址
TMethod.Data //实例的地址