F fanghaiying Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-21 #1 我用delph编的一个程序，要求用个人的用户名和密码登录，不设置权限，请问如何用变量传输 用户的信息到另一单元中
R Reboot Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-21 #2 有很多办法哦。 最简单的就是定义一个全局变量哦。 比如 unit uA和unit uB uA 的Interface部分加入变量 UserName和UserPassword uB 的uses中加入uA后，可直接存取UserName和UserPassword
有很多办法哦。 最简单的就是定义一个全局变量哦。 比如 unit uA和unit uB uA 的Interface部分加入变量 UserName和UserPassword uB 的uses中加入uA后，可直接存取UserName和UserPassword
T tunick Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-24 #3 或者。。在unitA的public中生命2个变量a,b unitB用form1.a和form1.b来读去。。
F fanghaiying Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-25 #4 我在Interface部分加入变量 UserName 声明：var username:string; 他就要报如下错误： [Error] sample01.pas(5): Declaration expected but 'USES' found 是不是我的定义变量有问题，请告诉我
我在Interface部分加入变量 UserName 声明：var username:string; 他就要报如下错误： [Error] sample01.pas(5): Declaration expected but 'USES' found 是不是我的定义变量有问题，请告诉我
Z zwhc Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-25 #6 改为 username:string;（将 var 去掉） 放在 Public 里，作为公有的属性，也一样使用。
F fanghaiying Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-25 #7 这样做还是不可以，我在uinta中声明的变量,到unitb就会提示没有定义，我已经把unita加入 unitb中了
D doud Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-25 #8 在uinta中声明 interface 。。 var Form1: TForm1; username: string; 在unitb中的 interface uses Windows, Messages，uinta; // 加入uinta 或在 implementation 后加入 uses unit1; 都可以
在uinta中声明 interface 。。 var Form1: TForm1; username: string; 在unitb中的 interface uses Windows, Messages，uinta; // 加入uinta 或在 implementation 后加入 uses unit1; 都可以
D doud Unregistered / Unconfirmed GUEST, unregistred user! 2000-12-25 #9 引用时 form2.Caption:=username; 即可
