adoquery读出一行数据如何写入数组中??????

Question

读出数据为一行:热热  可乐  面包   火箭   美女   香烟........为string型写入数组a[1..20]:array of string 中.读出数据列数小于数组最大长度,且不知道列名还有怎样把 读出的数据
17 28 31 48 .......等写入combobox1?在 combobox1显示:17是数字,28是数字.......

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a: array [1..32] of String;
begin
  for i := 1 to adoQuery1.FieldCount do
    a[i] := adoQuery1.Fields.Fields[i -1].Value;
end;

Answer 2

俺就偷懒用楼上的了，
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a: array [1..32] of String;
begin
  combobox1.items.clear;
  for i := 1 to adoQuery1.FieldCount do
     combobox1.items.add(adoQuery1.Fields.Fields[i -1].asstring);
end;

Answer 3

MS-sql 中有个函数 settoarray

Answer 4

set lenght a adoQuery1.FieldCount
动态数组好