有人有关于TTreeView的简单的例子？

Question

简单的数据库操作，希望对你有帮助
TreeView1.Item.Clear;
while not AOQuery1.eof do
begin
 TreeView1.Items.Add(nil,ADOQuery1.Fieldbyname('字段1').AsString);
 ADOQuery1.Next;
end;

Answer 1

var
    i:Integer;
    Root:TTreeNode;
    NewItem:PViewItem;
begin
    
    try
        if not DataSet.Active then exit;
        Root:=m_tvDataSet.Items.Add(nil,DataSet.Name);
        for i:=0 to DataSet.FieldCount -1 do
        begin
            new(NewItem);
            NewItem^.DataSet :=DataSet;
            NewItem^.Field  :=DataSet.Fields[i];
            m_tvDataSet.Items.AddChildObject(Root,DataSet.Fields[i].DisplayName,NewItem );
        end;
    except
    end;
end;存储对象数据的例子，呵呵