变量域问题,急
FRMMAIN在UNIT1单元.
FRMOUT在UNIT2单元
如何让FRMOUT访问FRMMAIN单元的变量呢?
如何定义程序级全局变量???
希望大家帮忙谢谢啦!!!
问题点数：0、回复次数：1Top
1 楼gzmhero（hihihi）回复于 2005-03-02 15:52:20 得分 0
UNIT2 单元里use Unit1就可以了。
全局变量:
可以单独建立一个Globalunit，所有全局变量、函数都放在这里，其他地方使用就user GlobalUnit
unit GlobalUnit;
interface
uses Messages,ComCtrls,windows;
var
G_CurUserId:string;
G_CurUser,G_CurPass:string;
procedure OpenAllPort;
procedure CloseAllPort;
implementation
uses 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.Top
