Delphi 根据字符串找到函数并执行的实例
来源:本站原创|时间:2022-11-25|栏目:Delphi|
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.
如有疑问请留言或者到本站社区交流讨论,感谢阅读,希望能帮助到大家,谢谢大家对本站的支持!
您可能感兴趣的文章
- 01-10在Delphi实现在数据库中存取图像的图文演示无错
- 01-10delphi建立、读取、存贮INI文件的方法《三》
- 01-10Delphi Command模式
- 01-10delphi 正弦曲线图
- 01-10delphi建立、读取、存贮INI文件的方法《二》
- 01-10插件管理框架 for Delphi(二)
- 01-10插件管理框架 for Delphi(一)
- 01-10Delphi中判断文件是否为文本文件的函数
- 01-10delphi中一个值得大家来考虑的DLL问题
- 01-10初探Delphi中的插件编程