编译怎么也不报错?这两个m变量不是全局的吗? unit1中使用的m变量是那个单元的m变量?
//----------------------------------------------
unit Unit2;interface
type
TLT=class(TObject)
private
public
end;var
m:Integer;implementationend.//------------------------------------------------
unit Unit3;interface
type
TYD=class(TObject)
private
public
end;var
m:Integer;
implementationend.
//------------------------------------------------
uses Unit2, Unit3;
var
Form1: TForm1;
Lt:TLT;
Yd:TYD;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
m:=1;
end;end.
//----------------------------------------------
unit Unit2;interface
type
TLT=class(TObject)
private
public
end;var
m:Integer;implementationend.//------------------------------------------------
unit Unit3;interface
type
TYD=class(TObject)
private
public
end;var
m:Integer;
implementationend.
//------------------------------------------------
uses Unit2, Unit3;
var
Form1: TForm1;
Lt:TLT;
Yd:TYD;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
m:=1;
end;end.
解决方案 »
- 请教TcpServer1.Accept接受问题!如何使用ClientSocket.ReceiveBuf()显示啊在线等
- 大侠请进,问一个超难的关于文件传输问题.
- 如何将对象的内存块用二进制文件保存?
- 急。。。。。。。。
- 恳求高手解决多表连接后 写入数据库出现不一致错误的问题
- ACCESS为什么会这样?
- 我想把表1的‘姓名’字段里的值,复制到表2里去,怎么办?需要几个adoquery.
- 请问如何在dbgrid里面的单元格里实现下拉选择框?
- Delphi的枚举类型是怎么用的?如果它的元素是字符串,怎样判断它和某个字符串相等?
- MIDAS中间层服务安装完后,为什么在DCOM组件中设置相应ConputerName后,将其连接属性设为true却总是提示拒绝访问?
- 请问一个函数
- 怎么取本机的所有共享名和共享路径以及共享权限?------------------在线等ing
不过,你可以用前缀访问每个unit的m
如:
unit2.m:=1;
unit3.m:=2;