求助,谢谢!

Iamanders 2003-10-17 12:14:02
有这样一个类似程序:

type
TForm1 = class(TForm)
Button1 : TButton;
TreeView1: TTreeView;
member :TMember;

procedure Button1Click(Sender: TObject);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin
member.CreatView(TreeView1);
end;

type
TMember = class
public
procedure CreatView(TVView:TTreeView);
private
TVMain : TTreeView;
TNChild : TTreeNode;
end;

procedure TMember.CreatView(TVView:TTreeView);
begin
TVMain := TVView;
TNChild := TVMain.Items.Add(nil,'主界面');
end;

问题在TMember.CreatView 方法的TVMain := TVView; 出错

请教如何解决,谢谢
...全文
60 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
huojiehai 2003-10-17
  • 打赏
  • 举报
回复
这样改
procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin
member := Tmember.Create;///////Add
member.CreatView(TreeView1);
end;
Iamanders 2003-10-17
  • 打赏
  • 举报
回复
我现在有事得暂时离开,谢谢大家能帮我解决,下午立刻送分
Iamanders 2003-10-17
  • 打赏
  • 举报
回复
命名是公司自己定义的啊,跟产品保持一致
simonzone 2003-10-17
  • 打赏
  • 举报
回复
你可能没有创建实例.

-------------------------------
TVMain : TTreeView;
TNChild : TTreeNode;

命名建议规范点
FVMain : TTreeView;
FNChild: TTreeNode;

Iamanders 2003-10-17
  • 打赏
  • 举报
回复
TVMain 是TMember 的成员变量
Iamanders 2003-10-17
  • 打赏
  • 举报
回复
内存出错,也就是说可能需要运行时创建TTreeView组件,并附值?
mxk19791116 2003-10-17
  • 打赏
  • 举报
回复
TVMain没有定义
zhoutian618 2003-10-17
  • 打赏
  • 举报
回复
在TMember.CreatView 方法的TVMain := TVView; 出错??

是编译期报错?
是运行期报错?
报错信息是什么?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧