我这条语句为什么不循环?

Question

procedure TAdminForm.FormCreate(Sender: TObject);
var
i:integer;
currentnode,temnode:ttreenode;
bm:string;
begin
Statusbar1.Panels[3].Text:=TimeToStr(Now);
for i:=0 to 2 do
TreeView1.Items.Clear;
TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);
end;
end.

Answer 1

for i:=0 to 2 do  begin///////加上begin
  TreeView1.Items.Clear;
  TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
  TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);
end;//////

Answer 2

for i:=0 to 2 do
TreeView1.Items.Clear;
TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);
end;
改为：
TreeView1.Items.Clear;
for i:=0 to 2 do
Begin
TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);
end;

Answer 3

如果我用adoconnection和adodatabaseset连接数据库，如何得到count即数据的条数

Answer 4

Statusbar1.Panels[3].Text:=TimeToStr(Now);
for i:=0 to 2 do
TreeView1.Items.Clear;
TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);
end;
end.改为这样的:
Statusbar1.Panels[3].Text:=TimeToStr(Now);
for i:=0 to 2 dobeginTreeView1.Items.Clear;
TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);next;end;
end.
这样应该行的吧

Answer 5

是不是没有设定焦点或者AdminForm加载之前数据库没有加载！:)

Answer 6

TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));//////设为根结点
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);//////设为子结构点
即＋长城公司
|
|-----销售部
|
|-----流通部
|
|-----销售部
|
|-----销售部
|
|-----销售部

Answer 7

var
  ATreeNode: TTreeNode;
begin
  ATreeNode := TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
  TreeView1.Items.Add(ATreeNode, adodataset1.FieldValues['name']);
                      ^^^^^^^^^
          //////////注意不是nil
end;

Answer 8

procedure TAdminForm.FormCreate(Sender: TObject);
var
i:integer;
currentnode,temnode:ttreenode;
bm:string;
begin
Statusbar1.Panels[3].Text:=TimeToStr(Now);
for i:=0 to 2 do begin
TreeView1.Items.Clear;
TreeView1.Items.Add(TreeView1.Selected,PChar('长城公司'));
TreeView1.Items.Add(nil,adodataset1.FieldValues['name']);
end;//for
end;
end.

Answer 9

var
  i : integer;
  ATreeNode: TTreeNode;
begin
  TreeView1.Items.Clear;
  ATreeNode := TreeView1.Items.Add(nil,PChar('长城公司'));//根节点
  adodataset1.First;
  for i:=0 to adodataset1.RecordCount-1 do
  begin
    TreeView1.Items.Add(ATreeNode, adodataset1.FieldValues['name']);
    adodataset1.Next;
  end;
end;结果就是：
＋长城公司
|
|-----销售部
|
|-----流通部
|