如提呀
解决方案 »
- Dll 调用窗体问题..在线等.急。。
- CSDN升级,咱就发贴,看看谁能占1楼
- 给个理由:为什么BCB不能超越dephi?
- 求DELPHI里的动态绑定ACCESS和SQL数据库的方法!
- 请问高手,谁能开发爱情管理机?
- 移动窗口触发的是哪个消息??
- 以下更新数据库的记录,运行时总是报错,提示为:“Line1:Incorrect syntax near '=',请问是什么原因呀
- 新手提问,在线等待!
- 如何在TREEVIEW中当点击一个父节点时,其下一层子树及本身的图标都变成另一幅?
- delphi和SQL Server联合开发数据库,表的名称是动态的,如何写insert语句呢?
- inputbox的提示信息
- 有人说我倒分.马上要死了.散掉所有分.(2)
a:Pchar;
begin
tv1.Items.AddObject(TTreeNode.Create(nil),'adf',a);
var
Node:TtreeNode;
Scode:string;
begin
while not (qgoods.eof()) do begin
if not (qGoods.FieldByName('goodstype').AsString='原材料') then begin
Node:=Treeview1.Items.Addchild(Parent,
qGoods.fieldbyname('GoodsName').AsString);
Scode:=qGoods.fieldbyname('goodscode').AsString;
Node.Data:=@Scode;
end;//if
end; //while
endprocedure Tf_main.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Showmessage(pstring(Node.Data)^); //出错呀
end;大家给我指点一下。要怎样访问才可以。
Procedure Tf_main.CodeRecursion(parent:Ttreenode;GoodsCode:String);
var
Node:TtreeNode;
PScode:^string; //注意声明成指针
begin
while not (qgoods.eof()) do begin
if not (qGoods.FieldByName('goodstype').AsString='原材料') then begin
Node:=Treeview1.Items.Addchild(Parent,
qGoods.fieldbyname('GoodsName').AsString);
New(PScode); //分配内存
PScode^:=qGoods.fieldbyname('goodscode').AsString; //注意是PScode^
Node.Data:=PScode; //不要@
end;//if
end; //while
endprocedure Tf_main.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
Showmessage(String(Node.Data^)); //应该这样写
end;
结贴