有比stringreplace更好的替换字符方法么？

Question

varmystring1:tstringlist;
mystring2:tstringlist;begin     mystring1:=tstringlist.Create ;
     mystring2:=tstringlist.Create;     mystring1.LoadFromFile('h:\code.txt');
     mystring2.Text:=stringreplace(mystring1.text,chr(32),',',[rfReplaceAll]);
     mystring2.SaveToFile('h:\code10.txt');     mystring1.Free ;
     mystring2.Free;
     end;code.txt文件有100万条记录，用上面的代码替换空格为逗号。但是效果好慢，几乎是死机。各位有更好的办法么？

Answer 1

100w条记录，文件有多大
你直接用ultraledit 打开文件替换一下就行了     mystring1.LoadFromFile('h:\code.txt');
     mystring2.Text:=stringreplace(mystring1.text,chr(32),',',[rfReplaceAll]);
     mystring2.SaveToFile('h:\code10.txt');    for i:=0 to mystring1.count do
用一个循环做，加个进度条，完成的速度应该会快点

Answer 2

100万条有20M啊。我用记事本打开替换也很慢啊。用ultraedit是很快。但不能这样做的。原因大家应该都知道。