Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實(shí)例
更新時(shí)間：2017年09月03日 16:21:42 投稿：lqh
這篇文章主要介紹了Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實(shí)例的相關(guān)資料,希望通過(guò)本能幫助到大家實(shí)現(xiàn)這樣的功能，需要的朋友可以參考下
Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實(shí)例
關(guān)鍵字：MethodAddress：取得方法的地址，這個(gè)方法需要是published的。
實(shí)例代碼：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TShowInfo = procedure(info:string) of object; //聲明一個(gè)procedure類型，參數(shù)和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('中華人民共和國(guó)'); //執(zhí)行
end;
end;
end.
如有疑問(wèn)請(qǐng)留言或者到本站社區(qū)交流討論，感謝閱讀，希望能幫助到大家，謝謝大家對(duì)本站的支持！
相關(guān)文章
前言我寫Delphi程序是從MIS系統(tǒng)入門的，開始嘗試子系統(tǒng)劃分的時(shí)候采用的是MDI窗體的結(jié)構(gòu)。隨著系統(tǒng)功能的擴(kuò)充，不斷有新的子系統(tǒng)加入系統(tǒng)中，單個(gè)工程會(huì)變得非常大，每次做一點(diǎn)修改都要重新編譯，單個(gè)工程的形式也不利于團(tuán)隊(duì)協(xié)作。為了提高工作效率，我希望利用DLL動(dòng)態(tài)鏈接庫(kù)的形式實(shí)現(xiàn)插件結(jié)構(gòu)的編程。2008-03-03
Delphi實(shí)現(xiàn)獲取句柄并發(fā)送消息的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)獲取句柄并發(fā)送消息的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi基本圖像處理方法,實(shí)例匯總了Delphi操作圖像實(shí)現(xiàn)浮雕、反色、模糊、翻轉(zhuǎn)等常用效果的方法,非常具有實(shí)用價(jià)值,需要的朋友可以參考下2015-05-05
delphi中exit,abort,break,continue的區(qū)別介紹
本文詳細(xì)介紹下delphi中表示跳出的有break，continue, exit，abort, halt, runerror的區(qū)別，感興趣的朋友可以參考下哈，希望對(duì)你學(xué)習(xí)跳出有所幫助2013-04-04
Delphi實(shí)現(xiàn)窗體感知鼠標(biāo)滑過(guò)并自動(dòng)隱藏與顯示窗口的方法
這篇文章主要介紹了Delphi實(shí)現(xiàn)窗體感知鼠標(biāo)滑過(guò)并自動(dòng)隱藏與顯示窗口的方法,涉及Delphi操作窗口及鼠標(biāo)事件的技巧,需要的朋友可以參考下2015-05-05
delphi中一個(gè)值得大家來(lái)考慮的DLL問(wèn)題
在MDI窗體類型的編程中，主窗體（fsMDIForm）怎樣調(diào)用子窗體（fsMDIChild，此子窗體為DLL）。2008-03-03
Delphi隱藏TPageControl的標(biāo)簽實(shí)例介紹
件是一組頁(yè)面集,用于構(gòu)造一個(gè)多頁(yè)對(duì)話框,它顯示多個(gè)交互頁(yè)(TTabSheet 對(duì)象)，接下來(lái)為大家介紹下Delphi隱藏TPageControl的標(biāo)簽方法2013-04-04
delphi簡(jiǎn)單判斷程序30秒沒有鍵盤和鼠標(biāo)動(dòng)作示例
本文為大家詳細(xì)介紹下delphi判斷程序30秒沒有鍵盤和鼠標(biāo)動(dòng)作,這里給timer設(shè)置了1000ms)的參數(shù)，表示30秒的間隔，具體實(shí)現(xiàn)如下，感興趣的朋友可以參考下哈2013-06-06
解決delphi TAdoQuery組件的close方法導(dǎo)致”列名無(wú)效“錯(cuò)誤的問(wèn)題
今天小編就為大家分享一篇解決delphi TAdoQuery組件的close方法導(dǎo)致”列名無(wú)效“錯(cuò)誤的問(wèn)題，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過(guò)來(lái)看看吧2020-02-02
Delphi XE5 為Android應(yīng)用制作簽名的方法(圖文)
這篇文章主要介紹了Delphi XE5 為Android應(yīng)用制作簽名的方法(圖文),需要的朋友可以參考下2016-02-02