Question

delphi关于两个窗体共用一个变量的问题

我建了两个窗体,form1和form2。我在窗体1的写了var form1:tform1；inum:integer; implementation…之后在一个按钮单击事件中为inum赋值为3。 我将窗体1的interface里 uses 窗体2,窗体2的implementation里 uses 窗体2。 窗体2直接调用inum。 运行后,单击窗体1的按钮,show出窗体2,窗体2中显示出来的inum值为什么是0,而不是3?
在public里声明inum我也试过,值也是0。我在事件里先给inum赋值再show窗体2的,我上面的那个implementation 是uses窗体1的,打错,抱歉

Answer 1

窗体2中的这个inum调用是在什么事件里面，oncreate事件吗？那么在创建form2时候就调用了。你直接show，当然还是显示原来创建form2那个时候的inum。

解决的方法是，你在窗体2的，调用inum的位置修改到 onactive，或者别的事件，比如你做个按钮事件，重新调用inum。

Answer 2

1、“窗体2的implementation里 uses 窗体2”，楼主说梦话呢？
2、你Show窗体2的时候如果还没给inum赋值，可能出现这种情况。
3、建议将inum放入第三个单元unit3，unit1和unit2公用unit3单元，不容易引起混乱。

Answer 3

你说的这个变量是全局变量的意思，全局变量要在pabulic部分声明。

Answer 4

像这种的变量，尽量放在公共单元里面