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.
如有疑问请留言或者到本站社区交流讨论，感谢阅读，希望能帮助到大家，谢谢大家对本站的支持！
热门推荐
3 祝福语简短的微信
10 幼儿祝福语大全简短贺卡
11 感谢教官文案祝福语简短
12 鼠年同事祝福语简短创意
13 元旦祝福语 简短独特群发
14 妈咪跟我生日祝福语简短
15 给儿子新婚祝福语简短
16 伴娘祝福语长文案简短
17 恭喜高考完祝福语简短
18 生日祝福语送老公简短