Delphi利用ADOQuery将SQL查询结果存放到数组

最近在用Delphi做交换机存活测试软件~因为要将Access数据库中的IP地址表等导入数组~研究了一下~大家分享一下~~

比如 select B from A ，把查询的字段B放到一个数组中（假设是字符型的）：

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;

原文链接：https://blog.yourtion.com/delphi-adoquery-in-an-array.html