请问两个.pas文件的变量怎么传递?? 请问两个.pas文件的变量怎么传递?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 写到第2个.pas,然后1,2有引用3;或者交叉引用,1引用2,2引用1。注意药叉引用的时候一个在interface,一个在implementation引用,否则抱错。 miky(miky)可以!建议做个公共单元放一些变量/常量! miky(miky)可以!uses XXX 对,Devchenxip(天天快乐) 的最好 两个.pas文件里的有些变量是不能传递的如:unit1.pasinterfacevari:integer;procedure TForm1.Button1Click(Sender: TObject)var str :string;begin i := 10;...end;unit2.pas里,引用unit1usesunit1,......但不能用str变量,i是可以用的procedure TForm2.Button1Click(Sender: TObject);begin showmessage(inttostr(i));end; delphi 开发复合控件,设计期时不响应鼠标点击选中和拖动。 手动创建窗体后组件不能使用问题 BDE Administrator和SQl 2005 连不上吗 已知窗体Handle, 检测子窗体数目? 用过web server的朋友请进! ★★★我的一个断断续续开发了一年的软件,大家帮我提提意见!!★★★ up有分 怎么我的代码捕获不到异常呢? 急救:什么是空间数据库定义? 对*.INI文件怎么读写,请指教。 Delphi中的Frame和Form有什么不同呀?请大家指教 各位兄弟是否有意思在程序里加上发送短信功能??? 如何将GRID选定的数据插入到另外一个表中?
或者交叉引用,1引用2,2引用1。注意药叉引用的时候一个在interface,一个在implementation引用,否则抱错。
uses XXX
如:
unit1.pasinterface
var
i:integer;procedure TForm1.Button1Click(Sender: TObject)
var
str :string;
begin
i := 10;
.
.
.
end;unit2.pas
里,引用unit1uses
unit1,......
但不能用str变量,i是可以用的
procedure TForm2.Button1Click(Sender: TObject);
begin
showmessage(inttostr(i));
end;