怎样把string中所有的“/”替换为“/"？(50分)

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #1

怎样把string中所有的“/”替换为“/"？

 

A

akju

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #2

stringreplace函数

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #3

function StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;

自己循环实现

 

A

akju

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #4

呵呵，不用循环，设定Flags为replaceall就行了

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-14

• #5

akju

 

E

eyes4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #6

str:='dfdsafd//dfdsfd///';
for i:=0 to length(str)-1 do
if str='/' then
str:='/';

 

H

honghs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #7

akju正确，eyes4，在不知道有StringReplace函数之前我也是用这种方法，但后来发现delphi已提供这种功能的函数了。

 

E

eyes4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #8

我并不反对用stringReplace;
我也知道StringReplace这个函数，贴一段程序只是提供一种思路而已.
说老实话，老用现成的未必有助于编程水平的提高。

 

刃

刃血

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #9

呵呵同意楼上所说。
用COPY函数呢，也能实现吧，不过这得自己编程动脑子了。

 

W

Writer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-15

• #10

eyes4果然是有经验的人，佩服！

 

E

eyes4

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-16

• #11

用copy要好些，可以实现多字符替换多字符：
function replace(OldStr,NewStr,str:string):string;
var
i:integer;
begin
while str<>'' do
begin
i:=Pos(oldstr, Str);
if i=0 then
begin
Result:=Result+str;
Break;
end;
Result:=Result+Copy(Str,1,i-1)+NewStr;
Str:=Copy(Str,i+Length(Oldstr),length(str));
end;
end;

 

C

cropcoco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-16

• #12

S 是含有‘/’的字符串, D是替换后的结果。
D := StringReplace(S,‘/’, ‘/’, [replaceall]);

 

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-16

• #13

接受答案了.