如何把 5,673,938.56 转换成 5673938.56(50分)

地

地平线

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #1

如何把 5,673,938.56 转换成 5673938.56

 

D

dadabox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #2

var str:string;
str:=formatfloat('#.00',strtofloat(5,673,938.56));

 

T

tinytao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #3

Label1.Caption:=
; ;StringReplace('5,673,938.56', ',', '', [rfReplaceAll, rfIgnoreCase]);

 

C

cnwinds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #4

procedure Convert(var Src,Dest:String)
var
; nI: Integer;
begin
; Dest := '';
; for nI := 1 to Length(Src)
; ; if Src[nI] <> ',' then Dest := Dest + Src[nI];
end;

当然你要在程序里用StrToFloat进行转换

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #5

只要把逗号去掉再用StrToFloat就搞定了：
StrToFloat(StringReplace('5,673,938.56', ',', '', [rfReplaceAll]));

 

地

地平线

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #6

dadabox:
; 你的方法编译通不过。

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #7

去掉，号不就可以了？
StringReplace('5,673,938.56', ',', '', [rfReplaceAll])；

 

地

地平线

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-31

• #8

tinytao和xianjun的方法最方便。
cnwinds的方法麻烦了些。
dadabox的方法通不过。不过仍有鼓励。

谢谢你们作答，我发分了。