如何去掉字符串中的空格

Question

str : string;
beign
  str := '';
  for i := 1 to length(s) do
  begin
    if trim(s[i])<>'' then str := str + s[i];
  end;
end;

Answer 1

如下:
  while pos(' ',s) <> 0 do
   s := copy(s,1, pos(' ',s) - 1) + copy(s, pos(' ',s) + 1, length(s));

Answer 2

引用SysUtils单元
NEWSTRING：=TRIM（OLDSTRING）//两边去空格
NEWSTRING：=TRIMRIGHT（OLDSTRING）
NEWSTRING：=TRIMLEFT（OLDSTRING）

Answer 3

edit2.text := StringReplace(edit1.text,' ','',[rfReplaceAll]);
可以去掉所有空格请大家去 http://www.new7wonders.com/c/voting.php 投长城一票