一个关与 Memo分行的小问题!!!急.在线等!!!

Question

str4 ;= '' ;
  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 +
                                str4  +
                                    ADOQuery1.Fields[0].asstring  +
                                         #13;
       ADOQuery1.Next ;
       end ;
    end ;
这是我的一个关于查找文本文档的一段代码
我没有办法让它分行
拜托大家帮帮忙啊

Answer 1

memo.Lines.Add(str4+ADOQuery1.Fields[0].asstring);

Answer 2

Memo1.Lines.Add(ADOQuery1.Fields[0].asstring + #13);
这样就可以了，我已经在windows 2000 delphi7 下测试通过

Answer 3

Memo1.test好象不会换行，你需要用Memo1.Lines.Add来执行