CSV文件中的字符替换

Question

我有如下一段文本，我想把, ,中的空格删除，我使用 ：
var
  str : String;
begin
  Memo1.Lines.LoadFromFile('文件路径');
  str := Memo1.text;
  str :=StringReplace(str, ' ', '', [rfReplaceAll]);
  memo1.text := str;
  Memo1.Lines.SaveToFile('文件路径');
  Memo1.Clear
end;
进行替换发现数据错误，但是我把里面的中文换成英文，这个函数就正常了，请问各位大神这个怎么处理呢？
55687,1,01201311202204,C041,WMCP0200500,14.0000,14.0000,.0000,1.0000,.0000,.0000,.0000,N,0.00,14.0000, ,D, ,A,000382,000382,2013-11-20 14:00:55.000,N,01201310250002,2013-10-25,2013-11-20 14:00:00.000, ,,01,WMCP02,0,.0000, ,张丹4, ,Y,.0, ,, , ,14.0000
55688,2,01201311202204,C041,WMCP0200400,12.5000,12.5000,.0000,1.0000,.0000,.0000,.0000,N,0.00,12.5000, ,D, ,A,000382,000382,2013-11-20 14:00:55.000,N,01201310250002,2013-10-25,2013-11-20 14:00:00.000, ,,01,WMCP02,0,.0000, ,张丹4, ,Y,.0, ,, , ,12.5000
 

Answer 1

用上面的语句执行 就变成了 下面的数据
55687,1,01201311202204,C041,WMCP0200500,14.0000,14.0000,.0000,1.0000,.0000,.0000,.0000,N,0.00,14.0000,,D,,A,000382,000382,2013-11-2014:00:55.000,N,01201310250002,2013-10-25,2013-11-2014:00:00.000,