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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024