哪位高手能解决树状目录的动态生成问题，请进屋一叙------>

[lyq]

如下表结构,通过sql语句或编程实现treeview中的树状关系。思前想后，没想出解决办法， 只好请教大家了，先行谢过！

nProcessID sProcessName
01 清花
02 梳棉
03 并条
03.01 涤予并
03.02 棉予并
03.03 混一
03.04 混二
03.05 混三
04 粗纱
05 细纱
06 精梳
07 槽筒

[lwk_hlj]

这个啊，几级树？
两级的话，还好办，多级的话，有点麻烦!
你等一会

[lwk_hlj]

var
strTmp:string;
tList:Tstring;
iPos,iIndex:integer;
begin
adoDataset.close;
adoDataset.commandtext:='select * from tname order by nProcessID';
adoDataset.open;
tList:=TStringList.Create;
while not adoDataset.eof do
begin
strTmp:=adoDataset.fields[0].asstring;
iPos:=pos('.',strTmp);
if iPos=0 then Node=nil
else
begin
strTmp:=copy(strTmp,0,iPos-1);
iIndex:=tnList.indexof(strTmp);
if iIndex=-1 then Node=nil
else node:=TTreeNode(tnList.objects[index]);
end;

node:=tv.Items.AddChildFirst(Node,adoDataset.fields[1].asstring);
tList.AddObject(adoDataset.fields[0].asstring,tn);
adoDataset.next;
end;
end;

这是两层的，另外，我假定你的数据是排好序的！
如多层，你就在这里想想
begin
strTmp:=copy(strTmp,0,iPos-1);
iIndex:=tnList.indexof(strTmp);
if iIndex=-1 then Node=nil
else node:=TTreeNode(tnList.objects[index]);
end;

[zswangII]

//确保记录是用nProcessID来排过序的～～
//测试如下代码～～

function SubStrConut(mStr: string; mSub: string): Integer;
{ 返回子字符串出现的次数 }
begin
Result := (Length(mStr) -
Length(StringReplace(mStr, mSub, '', [rfReplaceAll]))) div Length(mSub);
end; { SubStrConut }

procedure TForm1.Button1Click(Sender: TObject);
var
vStrings: TStrings;
vStream: TStream;
begin
with Table1 do //Table1替换成相应的DataSet控件
begin
vStrings := TStringList.Create;
vStream := TMemoryStream.Create;
DisableControls;
try
while not Eof do
begin
vStrings.Add(StringOfChar(#9,
SubStrConut(FieldByName('nProcessID').AsString, '.')) +
FieldByName('sProcessName').AsString);
Next;
end;
vStrings.SaveToStream(vStream);
vStream.Position := 0;
TreeView1.LoadFromStream(vStream);
finally
EnableControls;
vStrings.Free;
vStream.Free;
end;
end;
end;

[lwk_hlj]

上面的代码还应该加上
freeandnil(tList)

[lwk_hlj]

KAO

[shsunv]

上面的各位兄弟， 用这么复杂吗？

[shsunv]

查询语句：
select parent = (select max(nProcessID) from tProcess b where a.nProcessID like b.nProcessID + '%' and a.nProcessID <> b.nProcessID),
nProcessID as child, sProcessName
from tProcess a

[yrhkds]

为什么不用控件呢？
DbTree控件对于你这种格式的数据不用写一行代码
具体下载地址我忘记了，你查一下

[shsunv]

在一个名为: Query1的TQuery控件中写入如下SQL:
select parent = (select max(nProcessID) from tProcess b where a.nProcessID like b.nProcessID + '%' and a.nProcessID <> b.nProcessID),
nProcessID as child, sProcessName
from tProcess a
order by Parent, Child

程序如下：

type
PCustomNode = ^TCustomNode;
TCustomNode = record
NodeKey, NodeValue, NodeName: String;
end;

function TForm1.findParent(ANodeKey: String): TTreeNode;
var
i: Integer;
begin
Result := nil;

for i := 0 to TreeView1.Items.Count - 1 do
if PCustomNode(TreeView1.Items[i].Data)^.NodeValue = ANodeKey then
begin
Result := TreeView1.Items[i];
Break;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
vNode: PCustomNode;
begin
Query1.Close;
Query1.Open;

with Query1 do
while (not IsEmpty) and (not Eof) do
begin
new(vNode);

vNode.NodeKey := FieldByName('parent').AsString;
vNode.NodeValue := FieldByName('child').AsString;
vNode.NodeName := FieldByName('sProcessName').AsString;

if FieldByName('parent').AsString = '' then
TreeView1.Items.AddObject(nil, vNode.NodeValue + ' - ' + vNode.NodeName, vNode)
else
TreeView1.Items.AddChildObject(findParent(FieldByName('parent').AsString), vNode.NodeValue + ' - ' + vNode.NodeName, vNode);

Next;
end;
end;

[shsunv]

用你的数据测试过，没问题

[shsunv]

对了，
function findParent(ANodeKey: String): TTreeNode;
应记得在Form1的private中记得声明.

[lyq]

多谢大家帮忙，我看一下。

[Mr_Bean]

我觉得这个事情应该从根上看起
修要修改一下数据的结构，加上一个描述比解析字符串应该效率高把