怎么使变量可以在整个project中引用 啊？急～～谢谢

Question

如题，
不知道应该把变量声明写在那个部位呢？
（一个project中有多个form）PS：因为本人快没分了，所以不能给各位多分，sorry

Answer 1

单独写一个Global.pas 在它中间的var 中定义，然后在每个form的头的
interface
 uses
 global

Answer 2

在任何一個 UNIT 的 PUBLIC(公共定義)中定義你所需要設置的全局變量。
UNIT U_MAIN
private
........
public
  RGHT: STRING;
  CURRENT_OBJNAME : STRING;
  .......
end;然後在要用到的這個全局變量的窗體對應的 'UNIT'的'USES' 中添加
建立了全局變量的的那個'UNIT'USES ...,U_MAIN;

Answer 3

试了一下，可能是我用得不对，还是不行哦，
比如，我要定义一个全局常量inmax＝３０，一个全局变量数组sam：array［1..inmax］ of real;
不知道应该怎么分布这些声明呢？
谢谢指教。

Answer 4

给你一个实例吧
unit Global;interface
uses
   Forms, Classes, Windows, Dialogs, Messages, SysUtils, ShellApi, Buttons,
   Graphics, Controls, ComCtrls, ImgList, ToolWin, ExtCtrls, StdCtrls, DB, ADODB;
   
   
var
   GuestName: string; //全局用户变量
   servername, serverpw, serveruse, serverdb, ServerType: String;
implementation
end./////
unit FRM_LOGIN;interfaceuses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls, Buttons,inifiles，  Global；//这里要添上得
const
 ----
type
....
var
implementationprocedure tFrmlogin.edtOneOk..........
begin
GUESTName:=''''''''''''''''''''''''''''''; //////////////////就这样用，就想用这个窗口得变量一样
end;