如何可以将MEMO里面的所有ITEM不分行，而连续性的一次性写入文本文件？

Question

各位朋友，假如MEMO里面有以下多行的内容：行1的内容
行2的内容
行3的内容
行4的内容
。
行一万的内容请问如何编程，才能将MEMO里面的所有行写入到文本文件里面呢？但有一个要求，就是后面一行要接着前面一行的行末来写进文本文件
最终想要的结果 ：（后一行都是紧跟着上面的一行的）
行1的内容行2的内容行3的内容行4的内容行一万的内容
假如用savetofile这个函数，虽然也可以写入文本文件，但文本文件里面的内容却是这样的：下面的并不是小弟想要的结果
行1的内容
行2的内容
行3的内容
行4的内容
。
行一万的内容
请各位朋友赐教，谢谢！

Answer 1

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);

Answer 2

还可以 取Memo.Text ,然后用stringreplace替换其中的换行符

Answer 3

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;