这样的转换怎么实现？(50分)

L

liuyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #1

s:='abc,7;def,1,23;ghi,7'
要转换成s:='abc;def;ghi' 也就是说要把字符串中的逗号和数字去掉

 

L

lbd88488848

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #2

stringReplace(s,',','',[rfReplaceAll]);
stringReplace(s,['0..9'],'',[rfReplaceAll]);?

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #3

var
stemp:string;
begin
stemp := '';
for i:=1 to length(s) do
begin
if (s<>',') and (s not in ['0'..'9']) then
stemp := stemp + s;
end;
s := stemp;

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #4

来晚了

 

L

liuyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #5

to lbd88488848：
你的程序编译有些问题。好象是缺参数。
to lanbing1400：
你的程序其中(s not in ['0'..'9'])这句写错了。
应该是 not (s in ['0'..'9'])

谢谢2位的帮忙