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;
原文：http://www.cnblogs.com/yangxuming/p/6704983.html