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.

如有疑问请留言或者到本站社区交流讨论,感谢阅读,希望能帮助到大家,谢谢大家对本站的支持!

作者:lqh原文地址:http://blog.csdn.net/bdmh/article/details/4742850

%s 个评论

要回复文章请先登录注册