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

  • 主题发起人 主题发起人 lanpx
  • 开始时间 开始时间
L

lanpx

Unregistered / Unconfirmed
GUEST, unregistred user!
请教各位:怎样将一个字符串转化成小数的数值格式
如 ‘123.50’—> 12.50
'168.5' —> 168.50
最好举个例子
谢谢
 
StrToFloat, StrToCurr
 
补充一下,最后先将两边的空格去掉后,加个 '0',这样可靠一点。
因为字符串为空时,StrToFloat, StrToCurr 会出错。
s:=' 10.23 ';
f:=strtofloat('0'+trim(s));
 
var
v1:real;
code:Integer;
s:string;
...

val(s,v1,code);
if code<>0 then
showmessage(s+'是无效的实数!');
 
假设edit1.text为2
edit2.text:=FormatFloat('0.00',StrToFloat(edit1.Text));
结果:edti2为2.00
 
多人接受答案了。
 
后退
顶部