query1查询的数据库内容如何反馈到一个类似memo中

Question

query1查询的数据库内容如何反馈到一个类似memo中
我想实现 从一个数据库中 **.db 中查询语句 返回结果到一个memo 
如何实现

Answer 1

直接在这里写的，可能有笔误，见谅
proedure Test;
var
  i : integer;
  str : String;
begin
  for i := 0 to AdoQuery1.fieldcount -1 do 
  begin
    str := Str +'  '+ AdoQuery1.Fields[i].DisplayText ;
  end;
  Memo1.lines.Append(Str);
  
  AdoQuery1.first;
  with AdoQuery1 do while not eof do 
  begin
    Str := '';
    for i := 0 to AdoQuery1.fieldcount -1 do 
    begin
      str := Str +'  '+ AdoQuery1.Fields[i].asString;
    end;
    Memo1.lines.Append(Str);
    next;
  end;
end;