Delphi 根据字符串找到函数并执行的实例
发布时间:2020-12-15 04:23:56 所属栏目:大数据 来源:网络整理
导读:Delphi 根据字符串找到函数并执行的实例 关键字 :MethodAddress:取得方法的地址,这个方法需要是published的。 实例代码: unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls; type TShow
Delphi 根据字符串找到函数并执行的实例 关键字:MethodAddress:取得方法的地址,这个方法需要是published的。 实例代码: unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls; type TShowInfo = procedure(info:string) of object; //声明一个procedure类型,参数和ShowInfo一致 TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } published procedure ShowInfo(info:string); end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.ShowInfo(info: string); begin ShowMessage(info); end; procedure TForm1.Button1Click(Sender: TObject); var s:TShowInfo; begin @s := MethodAddress('ShowInfo'); //取得ShowInfo的地址 if @s <> nil then //如果不为空 begin s('中华人民共和国'); //执行 end; end; end. 如有疑问请留言或者到本站社区交流讨论,感谢阅读,希望能帮助到大家,谢谢大家对本站的支持! (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |