select name from table在执行了此语句后，希望把取得的结果在Showmessage();中列出来，怎么做？

Question

Query1.sql.Add('select name from table');
Query1.open;
ShowMessage(Query1.FieldByname('name').AsString);

Answer 1

str:string;Query1.sql.Add('select name from table');
Query1.open;
while not query1.eof do begin
  str:=str+Query1.FieldByname('name').AsString+#13;
  query1.next;
end;
ShowMessage(Str);

Answer 2

var
  str:string;
begin
  str:='';
  with query1 do
   begin
    close;
    sql.clear;
    sql.add('select name from table1');
    prepare;
    open;
    
   end;
   query1.First;
   while Not query1.eof do
    begin
      str:=str+ query1.Fieldbyname('name').asstring+#13;
      query1.next;
    end;
  ShowMessage(str);
end;