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

如何寫一個全域副程式

尚未結案
corey
一般會員


發表:34
回覆:44
積分:14
註冊:2003-04-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-06-20 16:15:24 IP:211.78.xxx.xxx 未訂閱
各位大大你們好: 我想問如果我寫一個副程式或是定義一些變數,是form1,form2,form3都會用的副程式及變數,那我要如何解決(且要是全域性) 請各位大大,謝謝指教
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-06-20 16:43:26 IP:203.95.xxx.xxx 未訂閱
Hi, 可以開一個 unit 檔. 讓所有的 form unit 都使用該 unit 即可, 如:    
unit myunit;    interface    var 
  _gstr: string; // 變數宣告段    // function / procedure 宣告段    function mystr(fd: string):string;    implementation    function changest(fd: string):string;
begin
  Result := fd   ' test';
end;    end.
如此一來, 在每個 form unit 裡都 uses myunit 即可!
corey
一般會員


發表:34
回覆:44
積分:14
註冊:2003-04-19

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-06-20 17:24:44 IP:211.78.xxx.xxx 未訂閱
謝謝timhuang指教
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-07-05 09:16:38 IP:61.30.xxx.xxx 未訂閱
corey: 這個答案您滿意的話要結案給分喔 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
系統時間:2024-04-30 5:27:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!