delphi Richedit控件的用法

最新推荐文章于 2024-08-05 10:55:58 发布

单单P

最新推荐文章于 2024-08-05 10:55:58 发布

阅读量6.6k

点赞数

分类专栏： delphi 文章标签： delphi

本文链接：https://blog.csdn.net/hansoy/article/details/44922815

版权

delphi 专栏收录该内容

27 篇文章 0 订阅

订阅专栏

  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;