要支持多層子節點還不容易嗎？
你定義TTreeNode數組呀，多少層都可以給你實現。
我最多做過三層的，源碼不適合你，
不過我還有一個例子可以給你，你一定能實現，有問題再聯系
unit fratree;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, Mask, DBCtrls, ComCtrls, ExtCtrls, ImgList;
const
cTreeCodeFormat='122222';
cTreeMaxLevel=6;
cTreeRootTxt='單位字典';
type
TframTree1 = class(TForm)
Tree: TTreeView;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label1: TLabel;
Label2: TLabel;
DBNavigator1: TDBNavigator;
procedure FormCreate(Sender: TObject);
procedure TreeClick(Sender: TObject);
private
{ Private declarations }
public
procedure LoadTree(treeDB:TDBDataSet);
procedure UpdateTree(curNode:TTreenode;nodeTxt:string;state:string);
function GetNodeLeveL(sFormat,sCode:string):integer;
{ Public declarations }
end;
var
framTree1: TframTree1;
implementation
{$R *.DFM}
uses DM;
function TframTree1.GetNodeLeveL(sFormat,scode:string):integer;
var i,level,iLen:integer;
begin
level:=-1;
iLen:=0;
if (sFormat<>'') and (sCode<>'') then
for i:=1 to length (sformat) do
begin
iLen:=iLen+StrToInt(sFormat);
if length(sCode)=iLen then
begin
level:=i;
break;
end;
end;
result:=level;
end;
procedure TframTree1.LoadTree(treeDB:TDBDataSet);
var curID,nodeTxt:string;
level,chindex,cnode,num:integer;
mynode:array[0..6] of TTreenode;
begin
//初始化變量
screen.cursor:=crHourGlass;
tree.Enabled:=true;
tree.Items.clear;
level:=0;
num:=1;
tree.items.clear;
//設置根節點
mynode[level]:=tree.Items.add(Tree.Topitem,cTreeRootTxt);
mynode[level].ImageIndex :=1;
with TreeDB DO
begin
try
if not Active then open;
first;
while not Eof do
begin
curID:=trim(FieldByName('dwDM').Asstring);
nodeTxt:=curID+'-'+trim(FieldByName('dwqc').Asstring);
level:=GetNodelevel(cTreeCodeFormat,curID);
//這裡返回代碼的層次數
if level>0 then
begin
//增加下一節點時，用添加子節點的方法可輕鬆實現節點間的層次關系
//注意：這裡的父節點是用當前節點的上一級節點
mynode[level]:=tree.items.addchild(mynode[level-1],nodeTxt);
mynode[level].imageIndex:=2;
end;
next;
end;
finally;
close;
end;
mynode[0].expand(true);
screen.cursor:=crHourGlass;
end;
end;
procedure TframTree1.UpdateTree(curNode:TTreenode;nodeTxt:string;state:string);
begin
if state='add' then
begin
curNode:=tree.items.addchild(curNode,nodeTxt);
curNode.imageIndex:=2;
end;
if state='del' then curNode.delete;
if state='edi' then curNode.text:=NodeTxt;
end;
procedure TframTree1.FormCreate(Sender: TObject);
begin
with DM_.Table1 do
begin
open;
indexFieldNames:='DWDM';
active:=true;
end;
framTree1.LoadTree(dm_.table1);
//DM_.table1.First ;
end;
procedure TframTree1.TreeClick(Sender: TObject);
var
temp,recID,gNodeID:string;
n,m:integer;
gNodelevel,curlevel:integer;
gNode:TTreenode;
begin
gNode:=FramTree1.tree.selected;
n:=pos('-',gNode.text)-1;
recID:=Copy(gNode.text,1,n);
gNodeID:=recID;
if gNode.text<>'單位字典' then
begin
with dm_.table1 do
begin
open;
//active:=true;
FindNearest([recID]);
end;
curlevel:=FramTree1.getnodelevel(cTreeCodeFormat,recid)+1;
end
else
curlevel:=1;
end;
end.
