Delphi使用TreeView读取数据库节点代码示例

var
    root,node,parentnode:TTreeNode;    //定义三个存放节点元件TTreeNode
    str,parentstr:AnsiString;
    i,j,num:integer;
    notExisted: bool;
begin
  inherited;
  DM.A_Class.Filtered:=false;//关闭档案分类资料信息表过滤器
  TV_Class.Items.Clear;      //清空TreeView所有节点
  root:=TTreeNode.Create(TV_Class.Items);  //声明节点文件指标变量
  node:=TTreeNode.Create(TV_Class.Items);
  DM.A_Class.first;
  for i:=0 to DM.A_Class.RecordCount-1 do  //填写档案分类信息表中所有记录的分类名字段到TreeView
    begin     
      str:=TrimRight(DM.A_Class['Class_CClass']);  //取得档案分类信息表中分类名字段值并去掉后面空格
      notExisted:= true;
      for j:=0 to TV_Class.Items.Count-1 do begin
          if TV_Class.Items[j].Text = str then begin
              notExisted := false; break;
                       end; 
                 end;
      if (notExisted) then  begin
      root:=TV_Class.Items.AddChild(NiL,str);//增加档案分类父节点
           end;
      DM.A_Class.next;              //设定当前活动记录为第一条记录
      end;
      DM.A_Class.first;
     for i:=0 to DM.A_Class.RecordCount-1 do //填写档案分类信息表中所有记录的分类名字段到TreeView
    begin