关于全局变量问题(10分)

在unit1中定义了TempName变量,放在implementation上面,
procedure TUserMangerForm.ModGroupClick(Sender: TObject);
begin
; ;//TempName := TTreeView(PopupMenu.PopupComponent).Selected.Text;
; ;TempName:='aaaaa';
; ;//ShowMsg(TempName);
; ;ModGroupForm.ShowModal;
end;
在ModGroupForm在调用这个变量,就是没有值.我已经用了USER unit1.

你放到PUBLIC里，用UserMangerForm.TempName调用算了

不可能找不到，你用unit1。TemName试一试看看行不行！还有你的USER unit1写错了应该为
uses unit1。

还是不行,不知这跟有PopupMenu来弹出窗口有关系吗,我的原意是在树中通过右键弹出窗口来
为选中的组名改名,详细代码如下:
var
; UserMangerForm: TUserMangerForm;
; TempName : String;
implementation
//右键弹出窗口
procedure TUserMangerForm.ModGroupClick(Sender: TObject);
begin
; ;//TempName := TTreeView(PopupMenu.PopupComponent).Selected.Text;
; ;TempName1:='aaaaa';
; ;//ShowMsg(TempName);
; ;ModGroupForm.ShowModal;
end;

ModGroupForm窗口代码
implementation
uses UserManger;
procedure TModGroupForm.FormCreate(Sender: TObject);
begin
; ;GroupName.Text := UserManger.TempName; //老是不显示'aaaaa'
end;

怎么没有回答,如果分数不够,我可以加.

TempName : String;的定义改到public下就行了，我试过了。

我用的是D6第一次编译没通过，但用了一下showmessage()，然后就没有问题了，
不过我也同意楼上的说法

接受答案了.