删除一篇文章中所有的空格的算法是什么？

[Juddy]

我想删除一篇文章中所有的空格，但算法总是出错，要不就是死机，请问，最好的算法是什么？

[Wingsun]

很简单啊，逐个从源数据中读取信息（一个字符一个字符地），然后判断是不是空格，不是就将它放到新的存储空间中，是就放弃。

[ccll]

用不到什么算法，一个函数就够了：
将文章读入string变量或memo中，例如：

startStr--原字符串
endStr--删除空格后得到的字符串

endStr:=StringReplace(startStr,' ','',[rfReplaceAll]);

以上即可完成将空格全部删除(替换为空字符),请注意参数:[rfReplaceAll]
该函数在SysUtils单元。

[hcat1999]

给你一个replace string的函数，copy就能用然后
s:=ReplaceStr(s,' ','');
就可以了

function ReplaceStr(const S, Srch, Replace: string): string;
var
I: Integer;
Source: string;
begin
Source := S;
Result := '';
repeat
I := Pos(Srch, Source);
if I > 0 then begin
Result := Result + Copy(Source, 1, I - 1) + Replace;
Source := Copy(Source, I + Length(Srch), MaxInt);
end
else Result := Result + Source;
until I <= 0;
end;

[Putao]

To ccll:
有StringReplace这个函数吗?

[Tod]

当然有，我已经试过了，没问题！