读取数据生成树的算法：procedure CreateTree(DataSet: TDataSet; Tree: TTreeView;  const nid, nname: string);const  ID_DEPT = 2;var  nLevel: Integer;  pNodes: array[0..1023] of TTreeNode;  lpID, lpName: string;begin  if DataSet = nil then Exit;  if Tree = nil then Exit;

1。判断节点是否被CHECKEDprocedure TForm1.Button1Click(Sender: TObject);begin if RzCheckTree1.Items[0].StateIndex = 2 then  showmessage('checked') else if RzCheckTree1.Items[0].StateIndex = 1 then  ShowMessage('no checked')    end;

<br />procedure TForm1.Button1Click(Sender: TObject);<br />var<br />  node: ttreenode;<br />  i: integer;<br />begin<br />  i := 0;<br />  node := treeview1.Items.GetFirstNode;<br />  while node <> nil do<br />  begin<br />    inc(i);<br />    node := node

<br />Delphi中使用ListView和TreeView的Item中的Data可能被忽略的内存泄漏问题，使用了Data作为指针的数据，在删除项目时，这些内存将不会释放，可以在OnDeletion事件中加入Dispose(Item.Data); 语句来实现释放。 <br />Delphi中大家在使用 ListView和TreeView时，一般都会使用到Item的Data属性来保存大家自己的内部数据，这个Data的声明如下：<br /><br />property Data: Pointer;<br /

<br />procedure THostForm.LoadLocalModules;<br />var<br />  i, x : integer;<br />  parentnode: TTreeNode;<br />  controller : THYModuleController;<br />  plugindescriptor : THYPLuginDescriptor;<br />begin<br />  TreeView.Items.BeginUpdate;<br />  with Modu

<br />function blTree(const NodeCaption: string): TTreeNode;<br />    function GetNode(node: TTreeNode): TTreeNode; <br />    var <br />        I:integer; <br />    begin<br />        Result := nil;<br />        if node.Text = NodeCaption then<br />