变量域问题,急

Question

FRMMAIN在UNIT1单元.
FRMOUT在UNIT2单元
如何让FRMOUT访问FRMMAIN单元的变量呢?
如何定义程序级全局变量???
希望大家帮忙谢谢啦!!!

Answer 1

UNIT2 单元里use Unit1就可以了。
全局变量:
可以单独建立一个Globalunit，所有全局变量、函数都放在这里，其他地方使用就user GlobalUnit
unit GlobalUnit;interfaceuses Messages,ComCtrls,windows;var    G_CurUserId:string;
    G_CurUser,G_CurPass:string;
procedure OpenAllPort;
procedure CloseAllPort;implementationuses SysUtils;
procedure OpenAllPort;
var
    i:integer;
begin
    for i:=0 to ComCnt-1 do
        Com[i].hPort:=openCom('com'+IntToStr(Com[i].port));
end;procedure CloseAllPort;
var
    i:integer;
begin
    for i:=0 to ComCnt-1 do
        closeCom(com[i].hPort);
end;
end.