全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1276
推到 Plurk!
推到 Facebook!

请各位帮忙:如何设计动态函数

缺席
tzjwj
一般會員


發表:28
回覆:30
積分:11
註冊:2005-05-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-05-23 09:24:54 IP:218.73.xxx.xxx 訂閱
我在某一unit文件common_application_array.pas里,定义了函数引用格式: 
[code delphi]
請在此區域輸入程式碼
type tapplication_functions_strings_array_detail=function(inputposarray:array of integer;var inputstrings:array of tstrings;var outputapplicationarray:array of Integer;inputstringscount:integer):integer;
function array_application_timer_scan_all(var outputstrings: array of tstrings; inputstringscount: integer;var outputarray:array of integer;inputfunction:tapplication_functions_strings_array_detail):integer;
[/code]
然后在webbrowser.pas文件里定义函数:

[code delphi]
請在此區域輸入程式碼
function application_functions_strings_array_detail( inputposarray: array of integer; var inputstrings: array of tstrings;var outputapplicationarray: array of Integer;inputstringscount: integer): integer;
[/code]
并且引用函数格式如下:
array_application_timer_scan_all(systemstrings,system_strings_count,outputarray,application_functions_strings_array_detail);
在编译时提示出错:“Incompatible types: 'regular procedure and method pointer'”。
请问各位大大是怎么回事?谢谢!
tzjwj
一般會員


發表:28
回覆:30
積分:11
註冊:2005-05-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-06-30 21:59:58 IP:220.185.xxx.xxx 訂閱
此问题已经自己解决,谢谢。解决办法:增加 of object.
系統時間:2024-03-29 19:25:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!