如何把RichEdit或Memo中的一个段落赋值给一个字符串？(50分)

请问我如何把RichEdit或Memo中的一个段落赋值给一个字符串？

就是说：

在RichEdit中：

************************************
* *
*……（回车） *
* 1111111111111111111111（无回车）*
*111111111111111111111111（无回车）*
*11111111（回车） *
*…… *
* *
************************************

经过赋值后，Str=' 111111111111111111111111111111111111111111111111111111'

Memo.text是一个String，想得到其中的一部分，无非是查找、Copy之类的操作。

一个个读字符，不是#13或#10就赋给STR。直到读出来回车符。

好像直接用Memo1.lines[N][K]是读不到#10或#13的。

var ss:tstringlist;

begin
ss:=tstringlist.create;
ss.text:=memo1.lines.text;
str:=ss[i-1]; //第 i 个段落
ss.free;
end;

你在 SBBS 上也问了

非常感谢GuXl！分送上！望查收！