记录换行符/回车的问题！！！

[Forestter]

我在编写程序时，想把Memo控件里的文字记录到String里面，
比如：
var
s: String;
i: Integer;
begin
s:='';
for i:=0 to Memo1.Lines.Count do
begin
s:=s+Memo1.Lines[i];
end;
end;
Memo1里的文字的确是记录到s里面了，可是Memo1里面如果文字是一行行的，那么到String里面就是联在一起了，请问怎样能把回车也记录进去？

[梅青松]

var
s: String;
i: Integer;
begin
s:='';
for i:=0 to Memo1.Lines.Count do
begin
s:=s+Memo1.Lines[i] + chr(13) + chr(10);
end;
end;

[xiaoxiao197821]

s := memo1.text;

反过来

memo1.text := s;