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中的插件編程
前言我寫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基本圖像處理方法,實例匯總了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)窗體感知鼠標滑過并自動隱藏與顯示窗口的方法
這篇文章主要介紹了Delphi實現(xiàn)窗體感知鼠標滑過并自動隱藏與顯示窗口的方法,涉及Delphi操作窗口及鼠標事件的技巧,需要的朋友可以參考下
2015-05-05
delphi中一個值得大家來考慮的DLL問題
在MDI窗體類型的編程中，主窗體（fsMDIForm）怎樣調(diào)用子窗體（fsMDIChild，此子窗體為DLL）。
2008-03-03
Delphi隱藏TPageControl的標簽實例介紹
件是一組頁面集,用于構(gòu)造一個多頁對話框,它顯示多個交互頁(TTabSheet 對象)，接下來為大家介紹下Delphi隱藏TPageControl的標簽方法
2013-04-04
delphi簡單判斷程序30秒沒有鍵盤和鼠標動作示例
本文為大家詳細介紹下delphi判斷程序30秒沒有鍵盤和鼠標動作,這里給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