今天有個朋友問我怎么用函數或者過程作為函數的參數呢，我說網上有挺多的，然而他告訴我很多例子運行不起來，我搜了幾個測試了下，不知道是不是我自己的軟件版本的問題，運行不了，所以自己研究了下，把自己能運行的貼出來，和大家分享分享。

先說說回調函數需要注意的幾個步驟吧，

首先要聲明一個類型；

??????? type? TProc = procedure(str:string) of object;???? //這里的of object 一定要，不然會出錯，也可能是有些方法自己不知道吧，希望知道的可以告訴一聲；

第二步:定義一個過程

??????

procedure test(str:string); //注意這個作為參數的函數內部的參數必須和TProc 的參數一樣； beginshowmessage(str); end

??????

第三步 定義一個調用test 這個函數的函數

???

procedure dotest(F:TProc); beginF('這是回調函數的測試'); end
第四步 就可以使用了

procedure show(); begindotest(test); end

如果還是不明白就來電簡單的完整的例子吧

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,ComCtrls, StdCtrls;typeTFunc = procedure() of object;TForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }function myTest(f:TFunc):string;procedure abc();end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.abc; beginshowmessage('這是回調函數測試'); end;procedure TForm1.Button1Click(Sender: TObject); beginmyTest(abc); end;function TForm1.myTest(f:TFunc):string; beginf(); end;end.

測試結果是這樣的

???????

總結

以上是生活随笔為你收集整理的delphi 回调函数例子 用函数过程作为参数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。