Delphi 根据字符串找到函数并执行的实例
Delphi根据字符串找到函数并执行的实例
关键字：MethodAddress：取得方法的地址，这个方法需要是published的。
实例代码：
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls;
type
TShowInfo=procedure(info:string)ofobject;//声明一个procedure类型，参数和ShowInfo一致
TForm1=class(TForm)
Button1:TButton;
procedureButton1Click(Sender:TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
published
procedureShowInfo(info:string);
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
{TForm1}
procedureTForm1.ShowInfo(info:string);
begin
ShowMessage(info);
end;
procedureTForm1.Button1Click(Sender:TObject);
var
s:TShowInfo;
begin
@s:=MethodAddress('ShowInfo');//取得ShowInfo的地址
if@s<>nilthen//如果不为空
begin
s('中华人民共和国');//执行
end;
end;
end.
如有疑问请留言或者到本站社区交流讨论，感谢阅读，希望能帮助到大家，谢谢大家对本站的支持！
热门推荐
10 新年门口花束祝福语简短
11 盘锦结婚祝福语大全简短
12 父母生日祝福语 简短独特
13 家庭恩爱祝福语简短英文
14 高考俄语祝福语大全简短
15 虎年祝福语 诗句唯美简短
16 生日婚礼祝福语简短精辟
17 虎年喝酒拜年祝福语简短
18 教师闺蜜祝福语简短