DELPHI中不用循环如何将SQL查询结果放入数组中?
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;
Copyright © 广州京杭网络科技有限公司 2005-2025 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有