如何通过DataModule里的ADOQuery将数据库里的字段名在ListBox控件里显示
是如何不是如果，我写错了不好意思

procedure Tselect.Button1Click(Sender: TObject);
var
 f1:TextFile;
 FileName,TmpStr,AllStr:String;
begin
 FileName:=''pingwei.txt';  //打开指定文件
  AssignFile(F1,FileName);
  Reset(F1);
  AllStr:='';//利用循环将F1的文件内容显示
  While not Eof(F1) do begin
  Readln(F1,TmpStr);
  //为每一行之间加入换行符号
  AllStr:=TmpStr+ #10;
ComboBox1.Items.Add(AllStr);
  end;
  //关闭文件
  CloseFile(F1);
  //显示文件的所有内容
end;


按上述代码自己改吧

FileName:=''pingwei.txt';  //打开指定文件
打开指定文件是指什么文件，是数据库还是数据库中的字段。如果要是下拉列表组件（TComboBox)中显示数据库“shujuku”中字段“年度”（string类型)的名称,且有重复记录时只显示一条记录应该怎样处理？先谢了。

procedure TForm2.FormShow(Sender: TObject);
begin
with ADOTable1 do
begin
open;
while not EOF do
begin
ListBox2.Items.Add(FieldByName('年度').AsString);
next;
begin
ListBox2.Text:= ListBox2.Items[0];
end;
end;
end;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
with ADOTable1 do
begin
open;
while not EOF do
begin
ComboBox2.Items.Add(FieldByName('年度').AsString);
next;
begin
ComboBox2.Text:= ComboBox2.Items[0];
end;
end;
end;
end;

如果只想用DBE标签页下的Query组件而不用ADOqurey组件，该怎样修改。

对不起ADOqurey应为ADOquery　.

谢过四楼！
我还有一个问题就是，我的DELPHI建一个数据模块DATAMODULE来放ADO等连接数据库控件时,在主单元FORM用4楼的方法来显示数据库中的字段名,会提示出错，（说明我已将单元USES过来，具改为DataModule1.ADOQuery）如果将ADO控件都放在主单元FORM中哪就一点问题都没有。原因何在！