请问怎么把数据显示在一个ComboBox控件中

[jenemery]

数据库中的信息如下(Department_Info)：

Department_Code Department_Name
------------------------------------------
001 行政部
002 财务部
003 人力资源部
------------------------------------------

请问我怎么用一个ClientDataSet控件把那些部门名字显示在一个ComboBox控件中?
查询语句如下：
var
i:integer;
str:string;
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Department_Info';
ClientDataSet1.Open;
str:=ClientDataSet1.FieldByName'Department_Name').Asstring
for i:=0 to ClientDataSet1.RecordCount-1 do
ComboBox.Item.Add(str);
ClientDataSet1.Next;
end;

请问这样写对吗？

[Snakeguo]

ComboBox.Items.Clear;
ClientDataSet1.First;
while not ClientDataSet1.Eof do
begin
ComboBox.Item.Add(str);
ClientDataSet1.Next;
end;

[lxpbuaa]

begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Department_Info';
ClientDataSet1.Open;
while Not ClientDataSet1.Eof do
begin ComboBox.Items.Add(ClientDataSet1.FieldByName'Department_Name').Asstring);
ClientDataSet1.Next;
end;



—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————


　　　　　　　

[star_of_light]

ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Department_Info';
ClientDataSet1.Open;
ComboBox1.Clear;
ClientDataSet1.First;
While not ClientDataSet1.Eof do
begin
ComboBox.Items.Add(ClientDataSet1.FieldByName('Department_Name').Asstring);
ClientDataSet1.Next;
end;

[Carfield]

begin
with ClientDataSet1 do
begin
Close;
CommandText:='select * from Department_Info';
Open;
While not eof do
begin
Combobox1.Items.Add(FieldByName('Department_Name').Asstring);
Next;
end;
end;

[chinaway]

for循环里边少了一个begin end;其它的倒没什么，应该可以用。

[Afei1]

同意上面

[yglyjf]

query1.active:=false;
query1.sql:='select * from Department_Info';
query1.active:=true;
While not eof do
begin
Combobox1.Items.Add(query1.FieldByName('Department_Name').Asstring);

Combobox1.Values.Add(query1.FieldByName('Department_Code').Asstring);
Next;
end;

[yglyjf]

query1.active:=false;
query1.sql:='select * from Department_Info';
query1.active:=true;
While not query1.eof do
begin
Combobox1.Items.Add(query1.FieldByName('Department_Name').Asstring);

Combobox1.Values.Add(query1.FieldByName('Department_Code').Asstring);
Next;
end;

[cxx1997]

var
i:integer;
str:string;
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Department_Info';
ClientDataSet1.Open;
str:=ClientDataSet1.FieldByName'Department_Name').Asstring //错，这样每次都加的同一个STR！应该放到for循环中去！
for i:=0 to ClientDataSet1.RecordCount-1 do
ComboBox.Item.Add(str); //错，for 循环应该加begin end指定范围
ClientDataSet1.Next;
end;

[F1OnEverest]

来晚了！

同意

—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————

[l_xiaofeng]

我用的是’特别的猫‘的方法

[3366]

for i:=0 to query.RecordCount-1 do
begin
ComboBox.Item.Add(query[i]); //错，for 循环应该加begin end指定范围
query.Next;