請問一下哦!我要宣告一個全域變數是要在那兒宣告, 我以為是像下面紅色部份這樣,可是好像不是哦! 那如果是寫在像緣色的部份,那麼如果我要宣告它是private, 那又要如何寫呢    unit Main;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Menus, StdCtrls, ExtCtrls, Grids;    type   TMainWork = class(TForm)     MainMenu1: TMainMenu;     N1: TMenuItem;     N2: TMenuItem;     About1: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     Me1: TMenuItem;     N5: TMenuItem;     N6: TMenuItem;     RadioGroup1: TRadioGroup;     StringGrid1: TStringGrid;     Memo1: TMemo;     Work: TButton;     Schedule: TButton;     procedure Me1Click(Sender: TObject);     procedure N4Click(Sender: TObject);     procedure N3Click(Sender: TObject);     procedure N2Click(Sender: TObject);     procedure N6Click(Sender: TObject);     procedure N5Click(Sender: TObject);     procedure RadioGroup1Click(Sender: TObject);   private     { Private declarations }   public var a,b,c:integer; end; var MainWork: TMainWork; a,b,c:integer; implementation uses Exp, Me, Pic, Moun, StrawberryOrc; {$R *.dfm} 月光小築~月牙兒

------
月光小築~月牙兒

You can define global variables in between the "interface" and "implementation" section. In you case the green a,b,c are global variable and other units can access them by adding "Main" to the use clause.    To define private field inside class e.g.

AClass = class
private
    A: integer;
    B: integer;
    C: integer;
end;

如下, 若你所指的全域變數是指在這個Form中, 那就照下面宣告即可, 若不只是這個Form要用, 可以宣告在william先進說的地方, 或Public. 在Public的話其他Unit要用時需將物件先寫出, 如MainWork.a := 0;

unit Main;    interface    uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, Grids;    type
TMainWork = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
About1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Me1: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
RadioGroup1: TRadioGroup;
StringGrid1: TStringGrid;
Memo1: TMemo;
Work: TButton;
Schedule: TButton;
procedure Me1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
private
//var  //拿掉 
a,b,c:integer;
end;    var
MainWork: TMainWork;
//a,b,c:integer;  //在此宣告也可    implementation    uses Exp, Me, Pic, Moun, StrawberryOrc;    {$R *.dfm}    

------


我不是高手, 高手是正在銀幕前微笑的人.

type   TMainWork = class(TForm) ...   public var 拿掉此行 a,b,c:integer;//這是屬於Form Class的一部分,不是全域變數 end; var MainWork: TMainWork; a,b,c:integer; //這才是全域變數 implementation 1. 紅色部分是屬於Form Class的一部分,須Form Create後才可Access,且不同的Form Instance可有不同的值. 好比你定義一個TStudent class內有no(座號),name(姓名),

TStudent=class(TObject)
public
  no:integer;
  name:string;
end;

當你用TStudent來create 很多instance時, 每一instance均可有不同之no,name 2. 綠色部分才是全域變數, 其他unit只要uses此unit就可使用,且整個AP只有一份 發表人 - ccchen 於 2002/11/08 08:36:54

謝謝各位'大大' 還有'大大'是什麼意思啊!我知道大概是一種敬稱是吧! 不太了,學人家用的~^^" 月光小築~月牙兒

------
月光小築~月牙兒