delphi Richedit控件的用法

  dm.qryTmp.First;
  while not dm.qryTmp.eof  do
  begin
    edt_re.Lines.Add
    (dm.qryTmp.FieldByName('Field01').AsString
    +'  '+dm.qryTmp.FieldByName('Field02').AsString
    +'  '+dm.qryTmp.FieldByName('Field03').AsString
    +'  '+dm.qryTmp.FieldByName('Field04').AsString
    +'  '+dm.qryTmp.FieldByName('Field05').AsString
    +#13#10    // 换行
    );
    dm.qryTmp.Next;
  end;