線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:777
推到 Plurk!
推到 Facebook!

請問:在TYPE區段的程式碼

尚未結案
Julien
一般會員


發表:36
回覆:28
積分:12
註冊:2002-11-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-04-07 17:24:20 IP:61.30.xxx.xxx 未訂閱
type TF1 = function: Boolean; stdcall; TP1 = procedure(Para1, Para2: PChar); stdcall; TC=class(CC) 其中的 TC=class(CC) 看得懂,但 TF1 與 TP1 的寫法,在保留字fountion、procedure後面,並未設定名稱,不知此宣告,所代表的含意. 請指點.謝謝 發表人 - julien 於 2004/04/07 17:43:17
yachanga
資深會員


發表:24
回覆:335
積分:296
註冊:2003-09-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-04-07 19:02:25 IP:210.68.xxx.xxx 未訂閱
您好 參考 Delphi Help 中 Declaring types A type declaration specifies an identifier that denotes a type. The syntax for a type declaration is    type newTypeName = type where newTypeName is a valid identifier. For example, given the type declaration type TMyString = string; you can make the variable declaration var S: TMyString; --------------------------- 所以以您的範例 TF1 = function: Boolean; stdcall; TP1 = procedure(Para1, Para2: PChar); stdcall; TF1 是一個參考 function 的 new type 傳回型態為 boolean 您就可以使用變數宣告如下 Var f1: TF1; p1:TP1; ~悠遊法國號~
Julien
一般會員


發表:36
回覆:28
積分:12
註冊:2002-11-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-09 11:25:09 IP:61.30.xxx.xxx 未訂閱
引言: var S: TMyString; --------------------------- 所以以您的範例 TF1 = function: Boolean; stdcall; TP1 = procedure(Para1, Para2: PChar); stdcall; TF1 是一個參考 function 的 new type 傳回型態為 boolean 您就可以使用變數宣告如下 Var f1: TF1; p1:TP1; ~悠遊法國號~
已了解以上的說明,謝謝;不過實際在看程式碼,還是有些障礙感. 如以下程式碼 ============================================================ interface uses ................................ type ................................ TF1 = function: Integer; stdcall; ................................ ................................ Txxxxx=class(xxxxx) protected ............................. public ............................. F1: TF1 ; function F2:integer; procedure xxx; ............................. ............................. ................. .................... implementation function F2:integer; begin ......................... end; procedure xxx; begin ................... F2; <----- 可立即知道 F2 跑些什麼. F1; <----- 該如何知道程式跑了些什麼? ................... end; ................. ................. ============================================================ 當執行 procedure xxx 時,且執行到 『F1;』時,就搞不清楚程式在執行什麼了. 煩請再度指點.謝謝!!
yachanga
資深會員


發表:24
回覆:335
積分:296
註冊:2003-09-27

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-04-09 14:51:28 IP:211.74.xxx.xxx 未訂閱
您好 F1 宣告是為TF1, 而TF1 = function: Integer; stdcall; 所以F1是function當然可以執行.    不管因為F1內容是空的.. So 對於您的程式沒有影響 <>~悠遊法國號~
系統時間:2024-05-16 16:04:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!