| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/7/26 17:20:27 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 代码如下: var myrecordpointer:pmyrecord;//pmyrecord为指针型记录 begin myrecordpointer:pmyrecord; with tform2.Create(Application) do begin try showmodal; finally if modalresult=mrok then begin new(myrecordpointer); with treeview1.Items.AddChild(treeview1.Selected,Editcaption.Text) do begin imageindex:=level+1; selectedindex:=level+1; myrecordpointer.parentnodeid:=pmyrecord(treeview1.Selected.Data)^.nodeid;///此句报错,报错信息如下图! myrecordpointer.nodeid:=pmyrecord(treeview1.Selected.Data)^.nodeid+'-'+inttostr(treeview1.Selected.Count); myrecordpointer.caption:=form2.Editcaption.Text; myrecordpointer.url:=form2.Editurl.Text; data:=myrecordpointer; end; adotable1.Append; adotable1.FieldByName('parentnodeid').AsString:=pmyrecord(treeview1.Selected.Data)^.nodeid; adotable1.FieldByName('nodeid').AsString:=pmyrecord(treeview1.Selected.Data)^.nodeid+'-'+inttostr(treeview1.Selected.Count); adotable1.FieldByName('caption').AsString:=form2.editcaption.Text; adotable1.FieldByName('url').AsString:=form2.editurl.Text; adotable1.Post; end; free; end; end; end;
-  |
|||||
| 作者： |
|
2004/7/26 19:12:36 | ||||
| 1楼： | 将with treeview1.Items.AddChild(treeview1.Selected,Editcaption.Text) do 改为： with treeview1.Items.AddObject(treeview1.Selected,Editcaption.Text,myrecordpointer) do 即可。 ---------------------------------------------- 我是男儿当自强 |
|||||
| 作者： |
|
2004/7/26 22:41:38 | ||||
| 2楼： | 谢了！ ---------------------------------------------- -
|
|||||
| 作者： |
|
2004/7/27 8:46:20 | ||||
| 3楼： | 还是报同样的错啊!郁闷 ---------------------------------------------- -
|
|||||
| 作者： |
|
2004/7/27 12:20:10 | ||||
| 4楼： | 你的逻辑有问题，程序太混乱了。 合理的逻辑应该是这样的。 比如： 第一步： new(myrecordpointer); 第二步： myrecordpointer.parentnodeid:=变量或常量;〔不可以是pmyrecord(treeview1.Selected.Data)^.nodeid;///〕 myrecordpointer.caption:=form2.Editcaption.Text; myrecordpointer.url:=form2.Editurl.Text; 第三步： treeview1.Items.AddObject(treeview1.Selected,Editcaption.Text,myrecordpointer) 再搞不定就看看Delphi的帮助（TTreeView）。 ---------------------------------------------- 我是男儿当自强 |
|||||
| 作者： |
|
2004/7/27 17:35:49 | ||||
| 5楼： | 我想得到的结果是在一个空的TREEVIEW中加入根节点,子节点等等!如何写代码 谢谢了! ---------------------------------------------- -
|
|||||
| 信息 |
| 登陆以后才能回复 |
