如果将一个文本文件里面的空格和回车全部去掉？该如何解决

如果将一个文本文件里面的空格和回车全部去掉？
各位朋友，小弟的文本文件里面有多个回车和多个空格，请问怎样读写文本文件，才能将文本文件里面的所有空格和回车去掉呢？请赐教，谢谢！

------解决方案--------------------
找ascii码，然后替换吧
------解决方案--------------------
用流读出文件，然后对数据进行处理
------解决方案--------------------
文本如果很小而且确定没有特殊字符，
可以用 TStrings 加载，让后用一个循环来搞定的
------解决方案--------------------
StrReplace函数
------解决方案--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
tempstr:tstringlist;
begin
tempstr:=tstringlist.create;
tempstr.loadfromfile('1.txt');
tempstr.text:=stringreplace(tempstr.text,' ','',[rfreplaceall]);//去掉空格
tempstr.text:=stringreplace(tempstr.text,#13#10,'',[rfreplaceall]);//去掉回车
tempstr.savetofile('1.txt');
tempstr.free;
end;
试一下看看
------解决方案--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Fe : TextFile;
Str: String;
begin
try
AssignFile(fe, 'D:\text.txt');
except
end;
Str:= Memo1.Text;
Str:= StringReplace(Str, ' ', '', [rfReplaceAll]);
Str:= StringReplace(Str, #13, '', [rfReplaceAll]);
Str:= StringReplace(Str, #10, '', [rfReplaceAll]);
Append(fe);
Write(fe,Str);
CloseFile(fe);
end;