在dephi中如何去全角空格(加急)

[marydan]

在dephi中如何去全角空格 高手快来帮忙
谢谢了

[jzinfo]

var str:string;
begin
   str:=edit1.text;
   while Pos('　',str)=1 do  //去除左边的
      Delete(str,1,2);
   while   Pos('　'+#0#0,   str+#0#0)>0 do //去除右边的
      Delete(str,Length(Str)-1,2);
   edit2.text:=str;
end;

[jadeluo]

用AnsiReplaceStr函数，把字符串中所有的全角空格都替换成空字符串('')就行了。

[无条件为你]

只去前后的空格
快来帮忙啊
文字中间的空格不去。

－－－－－－－－－－－－－－－－－－－－－－
那你调用这个过程就可以了：

uses StrUtils;

function QTrim(const S: String): String;
var tmp:WideString;
begin
tmp:=s;
while AnsiStartsText('　',tmp) do tmp:=copy(tmp,2,length(tmp));
while AnsiEndsText('　',tmp) do tmp:=copy(tmp,1,length(tmp)-1);
QTrim:=tmp;
end;

[hongqi162]

var
  s:string;
begin
  s:='你好　中　国！';
  s:=StringReplace(s,'　','',[rfReplaceAll]);
  showmessage( s );
end;

[marydan]

只去前后的

[fonganzen]

trim(' 你的字符串 ');

[无条件为你]

trim不行，它只能去掉半角空格，而且如果字符串中间有空格它也去不掉。

全角空格你可以用下面的方法，无论空格出现在什么位置都可以去掉：

showmessage(AnsiReplaceStr('　你　好　，问题解　决了　！','　',''));

[无条件为你]

trim不行，它只能去掉半角空格，而且如果字符串中间有空格它也去不掉。

全角空格你可以用下面的方法，无论空格出现在什么位置都可以去掉：

showmessage(AnsiReplaceStr('　你　好　，问题解　决了　！','　',''));

[marydan]

只去前后的空格
快来帮忙啊
文字中间的空格不去。