菜鸟求救:在两个模块和并时,遇到不同模块中相同的Unit,怎么办?赠分100 主模块form1,unit1,从模块form2,unit2在unit1中use unit2,ide菜单file->use unit....在form1中可用 form2.edit1.text :='aaa'; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 主模块form1,unit1,从模块form2,unit2在unit1中use unit2,ide菜单file->use unit....在form1中可用 form2.edit1.text :='aaa'; use unit2就是楼上说的那样 如果不同的模块有相同的单元名称,在工程文件中,用save as 可以给它改名,记得改名后把所有引用该单元的单元都改好。 主模块form1,unit1,从模块form2,unit2在主模块的最开始的uses中加从模块单元:unit2再从模块的implementation后加:uses unit1; 在unit1中use unit2,ide菜单file->use unit.... 在两个模块分开时运行其中一个,把UNIT的名字改掉,运行通过后再合并。改UNIT的方法再简单不过了,就是‘存为’,你不会不明白吧 将其中一个Save as...调试通过后再合并! 上面说错了,试了以下,更正如下:两个单元均加在implementation后,如下:var Form1: TForm1;implementationuses unit2;//在form1中加载unit2;{$R *.dfm}===========var Form2: TForm2;implementationuses unit1;//在form2中加载unit1;{$R *.dfm}你可以揭贴了f:) report machine 打印数据库image字段的问题 如何过滤从SQL获取的内容 P2P(点对点)网络文件传输 用什么控件比较好? 关闭窗体的问题 怎么才能缩住Dbgrid的第一列第二列不让滚动, 困扰已久,感激不尽,关于小数位不能超过4位的问题? Delphi老书谁要?如果看不上或者看过,做个书评也行。 连接问题 兄弟救命啊, 天哪!这么难的pascal竟然没人能解答,最后28份全部转让! 有人给我发了一个文件,我不敢打开,因为文件被压缩了,我看不出是什么文件! 同志们,有个公司想买我的电子词典程序,你们说我该出多少价?
在unit1中use unit2,ide菜单file->use unit....
在form1中可用
form2.edit1.text :='aaa';
就是楼上说的那样
记得改名后把所有引用该单元的单元都改好。
在主模块的最开始的uses中加从模块单元:unit2
再从模块的implementation后加:uses unit1;
改UNIT的方法再简单不过了,就是‘存为’,你不会不明白吧
两个单元均加在implementation后,
如下:
var
Form1: TForm1;implementation
uses unit2;//在form1中加载unit2;{$R *.dfm}
===========
var
Form2: TForm2;implementation
uses unit1;//在form2中加载unit1;{$R *.dfm}你可以揭贴了f:)