怎样用代码实现删除Txt里的硬回车?

Question

怎样用代码实现删除Txt里的硬回车?

Answer 1

TXT是分行是要有回车换行符才能换行啊！
#13#10把TXT内容全部都读出来，然后作一行输出到TXT中啊。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  with TStringList.Create do
  try
    LoadFromFile('Your Text File Name');
    s := Text;
    while pos(#13, s) > 0 do
      System.Delete(s, pos(#13, s), 1);
    while pos(#10, s) > 0 do
      System.Delete(s, pos(#13, s), 1);
    Text := s;
    SaveToFile('Your Text File Name');
  finally
    Free;
  end;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Memo2.text:=(StringReplace(form1.Memo1.text,#13#10,'',[rfReplaceAll]));
end;

Answer 4

memo1.LoadFromFile(...);
memo1.Text:=StringReplace(Memo1.Text,#$0D#$0A,'',[rtReplaceAll]);
memo1.SaveToFile(...);

Answer 5

memo1.LoadFromFile(..);
memo1.Text:=StringReplace(Memo1.Text,#$0D#$0A,'',[rfReplaceAll]);
memo1.SaveToFile(..);