class function yxm.trimblank(s: string): string;
var
  i, j: integer;
begin
  repeat
    i := pos(‘ ‘, s);
    j := length(s);
    if i > 0 then
      s := copy(s, 1, i - 1) + copy(s, i + 1, j - i);
  until i = 0;

  Result := s;
end;

DELPHI 去字符串中所有空格