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

[lyy001]

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

[zhoutian618]

TXT是分行是要有回车换行符才能换行啊！
#13#10

把TXT内容全部都读出来，然后作一行输出到TXT中啊。

[IORILI]

up

[飛無痕]

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;

[立志做一个佳娃~]

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

[hiflower]

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

[hiflower]

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