L lanpx Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-14 #1 请教各位:怎样将一个字符串转化成小数的数值格式 如 ‘123.50’—> 12.50 '168.5' —> 168.50 最好举个例子 谢谢
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-14 #3 补充一下,最后先将两边的空格去掉后,加个 '0',这样可靠一点。 因为字符串为空时,StrToFloat, StrToCurr 会出错。 s:=' 10.23 '; f:=strtofloat('0'+trim(s));
补充一下,最后先将两边的空格去掉后,加个 '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