求：如何读取并判断出数据库字段中的回车

Question

数据库 Oracle
字段类型 varchar2(2000)
因为字段中含有回车，不知道怎么把这些段落的效果体现在TMEMO中，我通过网页的TEXTAREA标签倒是直接能读取正常段落，但是在Delphi TMEMO中不知道该如何显示
var
  EdRe : TMemo;
  Qry : TQuery;
begin
  ...
  //下面这样写，直接导致读取的数值写在一行
  //原本想使用AddStrings的方法，但是不知道TQuery对象值怎么读成TStrings
  EdRe.Lines.Add(Qry.FieldByName('re').AsString);
  ...
end;

Answer 1

var
  s:string;
begin
  s:='fdsafdsa'+#13+'fdsafdsafdsafdsa';
  s:=StringReplace(s,#13,#13#10,[rfReplaceAll]);
  EdRe.Text:=s;
end;//----
var
  s:string;
begin
  s:=StringReplace(Qry.FieldByName('re').AsString,#13,#13#10,[rfReplaceAll]);
  EdRe.Text:=s;
end;

Answer 2

EdRe.Lines.Text:=Qry.FieldByName('re').AsString;即可

Answer 3

同意楼上的,直接给memo.lines.text赋值