生成一棵树方法一：
procedure MakeTree(Query: TQuery; TreeView: TTreeView);
var
List: TStringList;
Node: TTreeNode;
Index: Integer;
begin
TreeView.Items.BeginUpdate;
try
TreeView.Items.Clear;
List := TStringList.Create;
try
List.Sorted := True;
while not Query.Eof do
begin
if Query.FieldByName('ParentID').AsInteger = 0 then { ParentID=0，顶层节点 }
Node := TreeView.Items.AddChild(nil, Query.FieldByName('Name').AsString)
else
begin
Index := List.IndexOf(Query.FieldByName('ParentID').AsString);
Node := TreeView.Items.AddChild(TTreeNode(List.Objects[Index]),
Query.FieldByName('Name').AsString);
end;
List.AddObject(Query.FieldByName('ID').AsString, Node);
Query.Next;
end;
finally
List.Free;
end;
finally
TreeView.Items.EndUpdate;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
T: DWORD;
begin
T := GetTickCount;
Query1.SQL.Text := 'SELECT * FROM FTree ORDER BY ParentID, ID';
Query1.Open;
MakeTree(Query1, TreeView1);
Label1.Caption := Format('MakeTree所用时间: %d ms', [GetTickCount - T]);
end;
生成一棵树方法二：
procedure CreateTree(DataSet: TADOQuery; Tree: TTreeView;
const table, aid, aname: string; idname: Boolean);
const
ID_DEPT = 2;
var
nLevel: Integer;
pNodes: array[0..1023] of TTreeNode;
lpID, lpName, s: string;
begin
if DataSet = nil then Exit;
if Tree = nil then Exit;
if table = '' then Exit;
pNodes[0] := nil;
Tree.Items.Clear;
with DataSet do
begin
Close;
SQL.Clear;
s := Format('select %s, %s from %s order by %s', [aid, aname, table, aid]);
SQL.Text := s;
Open;
if IsEmpty then Exit;
First;
while not Eof do
begin
lpID := FieldByName(aid).AsString;
lpName := FieldByName(aname).AsString;
nLevel := Length(lpID) div ID_DEPT;
if not idname then
pNodes[nLevel] := Tree.Items.AddChild(pNodes[nLevel - 1], lpName)
else
pNodes[nLevel] := Tree.Items.AddChild(pNodes[nLevel - 1],
lpID + '-' + lpName);
Next;
end;
end;
end;
遍历一棵树：
procedure TForm1.Button1Click(Sender: TObject);
var
node: ttreenode;
begin
node := treeview1.Items.GetFirstNode;
while node <> nil do
begin
node := node.GetNext;
end;
end;