有没有办法只遍历根node,而不管子node?
解决方案 »
- 我的电脑有多硬盘,如何检测磁盘的空间信息??
- 三层结构中如何更新多表连接查询得到的数据集
- 如何在程序中动态设定vclskin的皮肤?
- 各位可以帮我解答一下Tdatabase的具体用法吗?以及和TTable,Tquery的区别?
- 请问各位大虾!那里有皮肤控件啊?
- dbexpress控件连接mysql出现missing database property,请问这个怎么解决
- 救救我吧,我真的不想活了(立刻给分)
- 请问如何用delphi将bmp序列转为avi啊??
- 屏幕的闪烁??
- 有QQ2000的发送消息和接收消息的接口协议?400分
- 用过SQLDirect的朋友请进!
- delphi chm帮助文件跳到指定的页面
var
i: Integer;
begin
for i := 0 to TreeView.Items.Count - 1 do
if TreeView.Items[i].Level = 0 then
.....
end;
FNode: TTreeNode;
begin
FNode := TreeView1.Items.GetFirstNode;
while Assigned(FNode) do
begin
ListBox1.Items.Add(FNode.Text);
FNode := FNode.getNextSibling;
end;
end;