DELPHI 去字符串中所有空格

标签：nbsp   begin   字符串   class   integer   str   result   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;

DELPHI 去字符串中所有空格

标签：nbsp   begin   字符串   class   integer   str   result   delphi   空格   

原文地址：http://www.cnblogs.com/yangxuming/p/6704983.html