請問:在TYPE區段的程式碼 |
尚未結案
|
Julien
一般會員 發表:36 回覆:28 積分:12 註冊:2002-11-28 發送簡訊給我 |
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
您好
參考 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 發送簡訊給我 |
引言: 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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |