Question

Delphi中 如何将SQL查询结果存放在一个数组中

在Delphi程序中，如何将查询结果存放在一个数组中？比如 select B from A ，如何把查询的字段B放到一个数组中（假设是字符型的）。希望高人说明详细点

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
A: Array of String;//定义动态数组
Index: Integer;//定义数组下标变量
begin

ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('Select B from A');
ADOQuery.Open;

Setlength(A,ADOQuery.RecordCount); //设置数组宽度
Index := 0;//初始化下标
ADOQuery.First;
While Not ADOQuery.Eof Do //数据集循环
begin
A[Index] := ADOQuery.FieldByName('B').asString;//数据添加到数组中
Inc(Index);
ADOQuery.Next;
end;
end;