var Node:TTreeNode; Node:=TreeView.Items.GetFirstNode;
for i:=Node.Index to TreeView.Items.Count do
begin
//写自己的代码(Node.Index)
Node:=Node.GetNext;
end;
end;
for i:=Node.Index to TreeView.Items.Count do
begin
//写自己的代码(Node.Index)
Node:=Node.GetNext;
end;
end;
解决方案 »
- 函数的使用问题??
- 使用DLL中创建的Frame会提示:Cannot assign a TFont to a TFont
- 查询自动创建表的内容???
- 面向对象数据库的问题
- 急救:如何在一个已经建立好的ACCESS数据库用代码中新增一个表?
- 用DSPACK操作摄像头,怎么捕获摄像头上的拍照按键的消息?
- 如何用鼠标移动ListBox中的项目
- delphi GetProcAddress('load.dll','函数'); 错误!
- delphi xe5下无法编译 unidac5.2.7的dclunidac190.dpk,请帮忙
- 同一幅图,一幅一JPG存储,另一幅以数据流形式存在数据库中,到底哪一种读取速度快???
- MTS分发问题
- 小问题,如何生成.jar,.war文件,他门是干什么用的 ?
for i:=Node.Index to TreeView.Items.Count do
begin
//写自己的代码(Node.Index)
Node:=Node.GetNext;
end;
end;
信息,比如:
type TDataNode = record
ID: integer;
end;
PDataNode = ^TDataNode;
var
idnode:ttreenode;
pdata:pdatanode;
begin
idNode:=TreeView.Selected;
pData:=idode.Data;
end;