查询显示的一个小问题!!!!拜托大家救救急!!!

[dancingsnow]

我想把查询到的文本文档显示在Memo中
但是到最后只能显示最后查到的那一条
为什么呢?
拜托大家告诉我为什么好么
if ADOQuery1.Active = false then
ADOQuery1.Active := true ;
if ADOQuery1.Active then
begin

ADOQuery1.First ;
while not ADOQuery1.Eof do
begin
memo1.Text := ADOQuery1.Fields[0].AsString;
ADOQuery1.Next;
end ;
end ;

这是我写的一段代码
帮我看看那里出错了啊

[ltmb118]

if ADOQuery1.Active = false then
ADOQuery1.Active := true ;
if ADOQuery1.Active then
begin

ADOQuery1.First ;
while not ADOQuery1.Eof do
begin
memo1.Text := memo1.Text + ADOQuery1.Fields[0].AsString;
==========================================================

ADOQuery1.Next;
end ;
end ;

[ltmb118]

我十分需要分，谢谢

[dancingsnow]

为什么要这样写呢?
如果查询到多个的话
是不是都能分行显示啊

[dancingsnow]

谢谢啊
已经显示了
那能否告诉我怎么让他们分行显示啊
我马上揭帖了
谢谢

[qingfengsishi]

Str : String ;
Str := '';
memo1.Text := Str + ADOQuery1.Fields[0].AsString + #13; //加个回车就可以执行分行了

[qingfengsishi]

with ADOQuery1 do
begin
if IsEmpty then
Exit;
First ;
while not Eof do
begin
Memo1.Text := Memo1.Text + Fields[0].AsString + #13 ; //回车换行
Next;
end ;
end;

[dancingsnow]

不行的啊
还是不能分行