摘要:
生成一棵树方法一: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 ... 阅读全文