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