2010年11月26日
最简单的遍历树算法
摘要： procedure TForm1.Button1Click(Sender: TObject);var node: ttreenode; i: integer;begin i := 0; node := treeview1.Items.GetFirstNode; while node <> nil do begin inc(i); node := node.GetNext; end; caption := inttostr(i);end; 阅读全文
posted @ 2010-11-26 15:05 delphi中间件 阅读(248) 评论(0) 推荐(0) 编辑