急！！！如何在delphi中从数据库的表中取出一个cust_no的所有值

Question

我想从一个表中取出cust_no的所有值，然后放到数组中或者变量中，如何作呢？？！
我希望的是在一个procedure中实现这个功能 ，请教  急！！！

Answer 1

var
  List:TStrings;
//....
List:=TStringList.create;with Adoquery1 do
begin
    close;
    sql.text:='select cust_no from tablename ';
    open;
    while not adoquery1.eof do
    begin
        List.add(adoquery1.fieldbyname('cust_no').asstring);
        adoquery1.next;
    end;
    close;    showmessage(list.text); //
end;