大佬教程收集整理的这篇文章主要介绍了Delphi – 每个名称调用Record方法，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
var Info : TRttiType;
Meth : TRttiMethod;
Param : TArray<TValue>;
Result : TValue;
AnyClass : TClass;
begin
...
Info := RttiContext.GetType(AnyClass);
Meth := Info.GetMethod('AMethod');
Setlength(Param,1);
Param[0] := TValue.From<Integer>(11);
Result := Meth.Invoke(ClassInstance,Param);
...
end;
但是有了记录,这段代码不起作用,因为TRttiMethod类型不为记录类型提供Invoke()方法.我可以从记录类型访问Info.GetMethod(‘AMethod’)的方法信息.
例如,我有这样的记录：
TRecordType = record Field1,Field2 : single; procedure Calc(Value : Integer); end;
如果我有methodname或methodaddress,那么有没有人知道从记录中调用方法的方法？
TRecordType = record Field1,Field2 : single; procedure Calc(Value : Integer); end; Meth : TRttiMethod; Para : TRttiParameter; Param : TArray<TValue>; ARec : TRecordType; begin Info := RttiContext.GetType(TypeInfo(TRecordTypE)); Meth := Info.GetMethod('Calc'); Setlength(Param,1); Param[0] := TValue.From<Integer>(12); Meth.Invoke(TValue.From<Pointer>(@AReC),Param); end;
如果要调用静态方法或重载运算符,则代码不起作用. Delphi内部总是将自指针添加到参数列表,但这会导致访问.所以请使用此代码：
@H_296_2@meth : TRttiMethod; Para : TRttiParameter; Param : TArray<TValue>; ARec : TRecordType; begin Info := RttiContext.GetType(TypeInfo(TRecordTypE)); Meth := Info.GetMethod('&op_Addition'); ... Meth.Invoke(TValue.From<Pointer>(@AReC),Param); Result := System.Rtti.Invoke(Meth.CodeAddress,Param,Meth.CallingConvention,Meth.ReturnType.Handle,Meth.IsStatic); end;以上是大佬教程为你收集整理的Delphi – 每个名称调用Record方法全部内容，希望文章能够帮你解决Delphi – 每个名称调用Record方法所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。