如何令某個var在整個Application中使用? |
答題得分者是:hagar
|
donlly
一般會員 發表:45 回覆:73 積分:23 註冊:2004-11-30 發送簡訊給我 |
program Project1; uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2}; {$R *.res}
var
i:integer; begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end. 請問紅色部分對嗎?如果不對,有什么辦法可以令i在整個Application中使用?
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 小弟的做法是宣告在全域變數區﹒
一般來講﹐是Main Form(第一個啟動的Form)之pas檔案的如下位置﹕
Unit Unit1 interface uses Windows, Messages, ... type TForm1 = Class(TForm) Private {Private declarations} Public {Public declarations} end; Var Form1 : TForm1; I : Integer; implementation {$R *.DFM} ...[/red]========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/12/14 11:26:33
------
忻晟 |
donlly
一般會員 發表:45 回覆:73 積分:23 註冊:2004-11-30 發送簡訊給我 |
引言: 您好﹗ 小弟的做法是宣告在全域變數區﹒ 一般來講﹐是Main Form(第一個啟動的Form)之pas檔案的如下位置﹕謝謝,請問這種做法可用于宣告tobject嗎?Unit Unit1 interface uses Windows, Messages, ... type TForm1 = Class(TForm) Private {Private declarations} Public {Public declarations} end; Var Form1 : TForm1; I : Integer; implementation {$R *.DFM} ...[/red]========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/12/14 11:26:33 |
arvin
一般會員 發表:12 回覆:9 積分:4 註冊:2002-09-11 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: 只有一個UNIT看的到嗎... 還是二三個UNIT看的到... 要让所有Unit也可以看的到的话,可宣告在: Unit Unit1 interface uses Windows, Messages, ... type TForm1 = Class(TForm) Private {Private declarations} Public {Public declarations} I : Integer; end; Var Form1 : TForm1; implementation {$R *.DFM}——行径窄处,留一步与人行—— 發表人 - deity 於 2004/12/14 14:55:22 |
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
Unit Unit1 interface uses Windows, Messages, ...; type TForm1 = Class(TForm) Private {Private declarations} Public VarOfObj: string; {Public declarations} end; Var Form1 : TForm1; VarOfUnit: Integer; implementation不管是 VarOfObj 或是 VarOfUnit, 在別的 unit 想要存取它都必須在呼叫處的 unit 先 uses Unit1 VarOfObj 與 VarOfUnit 不同的是 VarOfObj 須透過一個 Object 來存取(而且必項宣告在 public 處) 此例而言就是透過 Form1 也就是以 Form1.VarOfObj 的方式來存取 而 VarOfUnit 則只要在 uses Unit1 之後即可直接存取 而 VarOfUnit 或 VarOfObj 可以是任何型態的變數 所以也可以是 TObject(或其後代) 的變數 -- 棒球是從兩出局開始的. |
donlly
一般會員 發表:45 回覆:73 積分:23 註冊:2004-11-30 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |