DELPHI 去字符串中所有空格

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;