怎样删除空格！！！

Question

S := StringReplace(S, #32, '', [rfReplaceAll]);

Answer 1

function TrimStr(Str: string): string;
var
  Len, I: Integer;
begin
  Result := '';
  Len := Length(Str);
  for I := 1 to Len do
    if Str[i] <> ' ' then
      Result := Result + Str[i];
end;

Answer 2

是一个不错的函数！
判断到行尾也就是str[len]了
可以结帖子了

Answer 3

呵呵,同意小石头,用StringReplace函数好了!
S := StringReplace(S, #32, '', [rfReplaceAll]);

Answer 4

呵呵,错了,是同意zswang(伴水)(* pascal→c *)

Answer 5

好！
function StringReplace(const S, OldPattern, NewPattern: string;
  Flags: TReplaceFlags): string;ReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);