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 好听的元旦简短祝福语