delphi

Question

你就一行一行读取,然后插入memeo
比如query.add('select * from ....)
然后while not query.eof
     ...向memo插入数据

Answer 1

多行文本框?memo?
procedure TForm1.Button1Click(Sender: TObject);
var
  str : string;
  i : integer;
begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select  * from a11');
  adoquery1.Open;
  while not adoquery1.Eof do
  begin
    str :='';
    for i :=0 to adoquery1.FieldCount -1 do
      str :=str+adoquery1.Fields[i].AsString +' ';
    memo1.Lines.Add(str);
    adoquery1.Next;
  end;
  adoquery1.close;
end;

Answer 2

Select出Data，然后通过While or for 循环Add