您的位置：程序门 -> delphi -> 数据库相关

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

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

发表于：2008-01-09 11:02:04 楼主

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

发表于：2008-01-09 11:07:281楼得分:0

只去前后的

发表于：2008-01-09 11:51:302楼得分:0

trim（' 你的字符串 ');

发表于：2008-01-09 12:24:423楼得分:0

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

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

showmessage（ansireplacestr（'　你　好　，问题解　决了　！','　',''));

发表于：2008-01-09 12:25:394楼得分:0

发表于：2008-01-09 12:28:275楼得分:0

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

发表于：2008-01-09 14:19:086楼得分:0

delphi（pascal) code


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;

发表于：2008-01-09 14:40:357楼得分:0

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

发表于：2008-01-09 16:10:138楼得分:0

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

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

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;

发表于：2008-01-09 16:15:219楼得分:0

delphi（pascal) code

var
  s:string;
begin
  s:='你好　中　国！';
  s:=stringreplace（s,'　','',[rfreplaceall]);
  showmessage（ s );
end;

下一篇：在dephi中如何去全角空格（加急)
上一篇：adotable delete和updatebatch 的问题？

其他资讯