根据字符串找到函数并执行
2009-10-29 13:55
169 查看
关键字: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.
相关文章推荐
- 根据字符串找到函数并执行
- Delphi 根据字符串找到函数并执行的实例
- 根据函数名字符串执行指定函数
- lua 根据函数名字符串来执行函数
- javascript中根据函数名称字符串,动态执行函数
- javascript实现根据函数名称字符串动态执行函数的方法示例
- 使用Linq时,根据特定的字符串名称,找到对应字段并获取值
- 全国计算机等级二级C++第四章习题编程题6 :编写一个函数 char *strfind(char *s, char *t),用于查找字符串t在字符串s中最右边出现的位置,如果没有找到则返回NULL.
- ORACLE 调试输出,字符串执行函数
- js eval()函数 接收一个字符串,做为js代码来执行。 如: s='var d="kaka"'; 或者s=‘function (code){return code }’;
- C#实现根据字符串调用同名的函数
- addr2line,如何根据地址找到出错函数
- 在一个字符串中找到出现指定次数的字符,根据用户输入次数,打印出现次数为该次数的字符。如输入abaccedff及1,则输出:b e d 如输入abaccedff及2,则输出:a c f
- oracle根据分隔符将字符串分割成数组函数
- JS根据动态生成的字符串,验证是否存在对应function并执行
- Oracle 在函数或存储过程中执行sql查询字符串并将结果值赋值给变量
- matlab中“执行字符串”函数eval的用法(一)
- js 执行字符串函数名
- 字符串转换成python中exec能执行的函数
- 真正根据utf8编码的规律来进行截取字符串的函数(utf8版sub_str )