一个很简单的问题！谢谢了！(10分)

M

mao-jin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #1

一个字符串: 1,234,222.00
如何让他返回 1234222.00 不带分节号的

谢谢了！

另外哪位能够给介绍一下format格式化字符串的用法，帮助中是英文，看不太懂。

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #2

Str:=StringReplace(Str,',','');

 

M

mao-jin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #3

字符串中的数字不确定,有时候是很大很大的数字,还有其他方法没有!谢谢了!

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #4

写一个递归过程，用DELETE将字符串中的'，'删除。

 

A

af888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #5

var oldstr,newstr:string;
i:integer;
begin
oldstr:='1,300,113.00';
newstr:='';
for i:=0 to length(oldstr) do
if oldstr<>',' then
newstr:=newstr+oldstr;
edit1.Text:=trim(newstr);
end;

 

H

hygsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #6

楼上的原理没问题.但有疑问,STRING类型的字符串是否要给其分配长度?如果你开始就给它赋一个空字符串,是否以后可以连续赋给它一些新的字符,让它自适应增长?希望大家关注一下.......................

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-20

• #7

String 不用分配长度，除非你用完了想要手动释放，至于先赋空值，再继续赋值那是当然可以的了。
比如：
var
str:String;
Str:='';
for i;=0 to 100 do
Str:=Str+IntToStr(i)

这是当然可以的。

 

M

mao-jin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-21

• #8

多人接受答案了。