如何令某個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嗎?
|
|
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 發送簡訊給我 |
發表時間：2004-12-14 11:00:39
IP:219.131.xxx.xxx 未訂閱
系統時間：2024-05-21 20:32:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |