如何可以将MEMO里面的所有ITEM不分行，而连续性的一次性写入文本文件？
各位朋友，假如MEMO里面有以下多行的内容：

行1的内容
行2的内容
行3的内容
行4的内容
。。。。
行一万的内容

请问如何编程，才能将MEMO里面的所有行写入到文本文件里面呢？但有一个要求，就是后面一行要接着前面一行的行末来写进文本文件
最终想要的结果 ：（后一行都是紧跟着上面的一行的）
行1的内容行2的内容行3的内容行4的内容。。。。。。。。。。。。。。。。。。。。。。。。。。。行一万的内容


假如用savetofile这个函数，虽然也可以写入文本文件，但文本文件里面的内容却是这样的：下面的并不是小弟想要的结果
行1的内容
行2的内容
行3的内容
行4的内容
。。。。
行一万的内容


请各位朋友赐教，谢谢！

[解决办法]
var
F : TextFile;
i : Integer;
begin
try
AssignFile(f, 'C:\test.txt');
except
showmessage('衄善森璃');
end;
Append(f);
for i=0 to memo1.lines.count-1 do
Write(f,memo1.lines[i]);
CloseFile(f);
[解决办法]
还可以 取Memo.Text ,然后用stringreplace替换其中的换行符
[解决办法]
分行的想不分行是容易
没分行的想就难了——因为不知道该在什么位置分
[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  Fe : TextFile;  Str: String;begin  try    AssignFile(fe, 'D:\text.txt');  except  end;  if not FileExists('D:\text.txt') then    Rewrite(Fe);  Str:= Memo1.Text;  Str:= StringReplace(Str, #13, '', [rfReplaceAll]);  Str:= StringReplace(Str, #10, '', [rfReplaceAll]);  Append(fe);  Write(fe,Str);  CloseFile(fe);end;