一个字符串中，怎样去除中间的空格，(30分)

ptfjy · 2003-10-20

如'奔腾电脑'，去除中间部分空格后，使其成为
'奔腾电脑'，中间的空格多少不是固定的，如何解决？

henrynj · 2003-10-20

//去掉字符串中的空格
function DelSpace(sStr:string):string;
var i:integer;
s1:string;
begin
s1:='';
for i:=1 to Length(sStr) do
begin
if copy(sStr,i,1)<>' ' then
s1:=s1+copy(sStr,i,1);
end;
result:=s1;
end;

强@子 · 2003-10-20

好像没有，只能用苯办法。pos（）

DouZheng · 2003-10-20

str := stringreplace(str,' ' ,'' [rfReplaceAll]);

xhlight · 2003-10-20

同意henrynj，只做一点修改
function DelSpace(sStr:string):string;
var i:integer;
s1:string;
begin
s1:='';
for i:=1 to Length(sStr) do
begin
if sStr<>' ' then //只做这点修改
s1:=s1+sStr;
end;
result:=s1;
end;

lyco · 2003-10-20

来晚了，分数都让DouZheng等去了[

]

rainxy2002 · 2003-10-20

同意DouZheng的回答！！！

方脑壳 · 2003-10-20

同意楼上，只是加上一个删除全角空格的判断就更好了
function DelSpace(sStr:string):string;
var i:integer;
s1:string;
begin
s1:='';
for i:=1 to Length(sStr) do
begin
if (sStr<>' ') //判断半角空格
or (sStr<>'　') //判断全角空格
then
s1:=s1+sStr;
end;
result:=s1;
end;

tianjh007 · 2003-10-20

还有另外两个函数AnsiRepalceStr和AnsiReplaceText
需要引用StrUtils单元，一个是区分大小写，一个是不区分

jiangzixu · 2003-10-20

StringReplace()吧，

要看你的Delphi版本，建议你看一下Category“string handling routines”

fsse4000 · 2003-10-20

str := stringreplace(str,' ' ,'' [rfReplaceAll]);

ptfjy · 2003-10-20

多人接受答案了。

Netsoft · 2003-10-20

最佳为 DouZheng ，
速度够快的哦，
结帐啦~~~~~~~老板！！！！
呵呵~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

一个字符串中，怎样去除中间的空格，(30分)

ptfjy

Unregistered / Unconfirmed

henrynj

Unregistered / Unconfirmed

强@子

Unregistered / Unconfirmed

DouZheng

Unregistered / Unconfirmed

xhlight

Unregistered / Unconfirmed

lyco

Unregistered / Unconfirmed

rainxy2002

Unregistered / Unconfirmed

方脑壳

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

jiangzixu

Unregistered / Unconfirmed

fsse4000

Unregistered / Unconfirmed

ptfjy

Unregistered / Unconfirmed

Netsoft

Unregistered / Unconfirmed

Similar threads