如何删除字符串中的空格？

Question

有一个字符串，如何删除这个字符串中的多个不相邻的空格，生成一个完整而没有空格的字符串呢？
有这样的函数吗？

Answer 1

http://expert.csdn.net/Expert/topic/1952/1952101.xml?temp=.4930994
(代理服务器有问题,不能发长的留言,请原谅) 
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

Answer 2

不好意思copy错了,用stringreplace
edit1.text:=stringreplace(edit1.text,' ','',[rfReplaceAll]);
(代理服务器有问题,不能发长的留言,请原谅) 
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

Answer 3

不好意思copy错了,用stringreplace
edit1.text:=stringreplace(edit1.text,' ','',[rfReplaceAll]);
(代理服务器有问题,不能发长的留言,请原谅) 
--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------

Answer 4

function replaceText(S,source,target:string):string;
var site,StrLen:integer;
begin
{source在S中出现的位置}
site:=pos(source,s);
{source的长度}
StrLen:=length(source);
{删除source字符串}
delete(s,site,StrLen);
{插入target字符串到S中}
insert(target,s,site);
{返回新串}
replaceText:=s;
end;  

Answer 5

//  Str:string;  while Pos(' ', Str) > 0 do
    delete(HostOrIPStr,Pos(' ', Str),1);

Answer 6

function _Trim(const S: string): string;
var
  P, R: string;
begin
  SetLength(Result, Length(S));
  P := PChar(S);
  R := PChar(Result);
  while True do
  begin
    case P^ of
      #32: ;
      #0: break;
    else 
      R^ := P^;
      Inc(R);
    end;
    Inc(P);
  end;
end;

Answer 7

哦,错了,是:
var
  P, R: PChar;

Answer 8

利用POS与DELETE函数就可以解决了。

Answer 9

s :=stringreplace(edit1.text,' ','',[rfReplaceAll]);

Answer 10

多谢各位了
s :=stringreplace(edit1.text,' ','',[rfReplaceAll]);
是最好的！

Answer 11

var
  str : string;
begin
str:=trim(str);
.....
...
end;