请教各位：怎样将一个字符串转化成小数格式(50分)

L

lanpx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #1

请教各位：怎样将一个字符串转化成小数的数值格式
如 ‘123.50’—> 12.50
'168.5' —> 168.50
最好举个例子
谢谢

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #2

StrToFloat, StrToCurr

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #3

补充一下，最后先将两边的空格去掉后，加个 '0'，这样可靠一点。
因为字符串为空时，StrToFloat, StrToCurr 会出错。
s:=' 10.23 ';
f:=strtofloat('0'+trim(s));

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #4

var
v1:real;
code:Integer;
s:string;
...

val(s,v1,code);
if code<>0 then
showmessage(s+'是无效的实数！');

 

M

Minor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #5

假设edit1.text为2
edit2.text:=FormatFloat('0.00',StrToFloat(edit1.Text));
结果:edti2为2.00

 

L

lanpx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-03

• #6

多人接受答案了。