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

Question

用不到什么算法，一个函数就够了：
将文章读入string变量或memo中，例如：startStr--原字符串
endStr--删除空格后得到的字符串endStr:=StringReplace(startStr,' ','',[rfReplaceAll]);以上即可完成将空格全部删除(替换为空字符),请注意参数:[rfReplaceAll]
该函数在SysUtils单元。

Answer 1

给你一个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;

Answer 2

To ccll:
有StringReplace这个函数吗?