如何解决StringReplace替换空格太慢

很奇怪，没人在网上反映过StringReplace替换空格是非常慢的！我的RichEdit中几百k的内容，替换其中的空格居然要等上10分钟，简直无法忍受的，弄得下一步的转存函数都等得花儿都谢了的。

以前，使用StringReplace的方法如下，有兴趣的朋友，也可以测试一下；

var  HexS:string;

begin

   HexS :=StringReplace(RichEdit1.Text,' ','',[rfReplaceAll]);

  RichEdit2.Text ：=HexS;

end;

 

后来，搜了一堆方法，结果都没发觉有好用的，想了一下，直接单个读入字符的方法试试，还的确快了n倍的，所以，建议还不如用此方法，不用用pos等方法，比如下面的也很慢（估计每次都从头开始定位造成，使用把整个字符分为左右字符串的方法，可能速度会快，但觉得使用最后的简单方法足够）：

function trimSpace2(s:string):string;
var  p:Integer;
begin
  Result :=s;
  while Pos(' ',Result)>0 do
  begin
    p:= Pos(' ',Result);
    //Result :=Copy(Result,1,p-1) + Copy(Result,p+1,Length(Result)-p );
    Delete(Result,p,1);
  end;
end;

 

建议的替换空格字符串方法：

function trimSpace(s:string):string;
var  i:Integer;
begin
  Result :='';
  for i:=1 to length(s) do
    if s[i]<>' ' then Result:=Result+s[i];  

   //if (s[i]<>#10) and (s[i]<>#13) then Result:=Result+s[i];   //此句可以删除换行符，若需要删除空格和换行符，则是3个and字符的关系即可
end;

就这么简单的，速度是快了n倍的。替换其他字符串，例如换行符等，同理。

 

但，今天找到一篇文章，使用的FReplace单元，采用的汇编，的确替换快多了的，若还需要替换字符，建议使用该单元中的FastReplace函数（估计UltraEdit就是采用类似的函数才替换那么快的）。

该单元可以参考我的文章里面资源，http://blog.csdn.net/rell336/article/details/17751623的相关程序的下载地址。