如何用指针操作treeview

Question

如何用指针关联数据库来操作treeview
多谢帮忙，给些讲解也好，能有些详细资料也好
谢谢了，谢谢

Answer 1

我这儿做了一个例子，你可以把你的信箱写出来我发给你，
我这儿主要是用来管理数据库中的图片的，其中TreeView的属性Data是最主要的，用它来存取表的相关信息。

Answer 2

{***************************************************************
 * 方 法 名  : TfrmMap.AddRootNode
 * 编写目的   :
 * 作    者  : 黄仁光
 * 参    数  : MapType:Integer
 * 结    果  : TTreeNode
 * 编写日期   :2002年12月18日
 ****************************************************************}
function TfrmMap.AddRootNode(MapType:Integer):TTreeNode;
var
  RootNode:TTreeNode;
begin
  treImage.Items.Clear;
  case MapType of
    0://单位方位图
      begin
        RootNode := treImage.Items.Add(nil,'单位方位图');
      end;
    1://建筑平面图
      begin
        RootNode := treImage.Items.Add(nil,'建筑平面图');
      end;
    2://建筑立面图
      begin
        RootNode := treImage.Items.Add(nil,'建筑立面图');
      end;
    3://楼层平面图
      begin
        RootNode := treImage.Items.Add(nil,'楼层平面图');
      end;
    4://消防部署图
      begin
        RootNode := treImage.Items.Add(nil,'消防部署图');
      end;
    5://最佳路径图
      begin
        RootNode := treImage.Items.Add(nil,'最佳路径图');
      end;
  end;
  Result := RootNode;
end;

Answer 3

{***************************************************************
 * 方 法 名  : TfrmMap.AddChildNode
 * 编写目的   :
 * 作    者  : 黄仁光
 * 参    数  : RootNode:TTreeNode;fIndex:Integer;fCode,fName:String;FileName:String
 * 结    果  : None
 * 编写日期   :2002年12月18日
 ****************************************************************}
procedure TfrmMap.AddChildNode(RootNode:TTreeNode;fIndex:Integer;fCode,fName:String;fType:Integer;FileName:String);
var
  ChildNode:TTreeNode;
  pMapChild:PMapNode;
begin
  new(pMapChild);
  pMapChild^.fIndex := fIndex;
  pMapChild^.fCode := fCode;
  pMapChild^.fName := fName;
  pMapChild^.fType := fType;
  pMapChild^.FileName := FileName;
  ChildNode := treImage.Items.AddChildObject(RootNode,fCode,pMapChild);
end;