如何将数据读到treeview中？

Question

数据表数据如下结构
科室    姓名
aaaa    001
aaaa    002
bbbb    003
bbbb    004
如何让数据在treeview中树状显示呀？

Answer 1

aaaa
 |___001
 |
 |___002
bbbb
 |___003
 |
 |___004
这样子的么?
两个循环就好了,外面循环添加父节点.内循环添加子节点 
 

Answer 2

算法如下:
IsOnTheTree 用来判断是否已存在该科室
find用来定位room
buildTree建树
具体实现稍微改动下即可function IsOnTheTree(ExistedStr: TString; Room: String): boolean;
begin
  if Room in ExistedStr then
  begin
    Result := true
  end
  else
  begin
    Add to ExistedStr
    Result := false;
  end;
end;function findroom(room): TTreenode;
begin
end;  procedure BuildTree(room, Name : String);
begin
  if IsOnTheTree(room) then 
  beign
    treeview1.add(findroom(room),name);
  end
  else
  begin
    Treeview1.addchild(Treeview1.Topitem, name)
  end;
end;