xxsr.net
当前位置:首页 >> DElphi strtoFloAtDEF >>

DElphi strtoFloAtDEF

不会啊,还是double类型的;

见下面例程,用strtofloat()没问题: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var s:string; a:double; begin s:='34578.76545'; a:=strtofloat(s); writeln(a); readln; end.

有 TryStrToInt 这个函数。没有TryStrToFloat。

是函数啊 str是字符串 to 转换 float 是实数 这个函数就是将字符串转换成实数 追问: floattostr , inttostr 又是什么意思??? 举例:label5.Caption:='U= ' + inttostr(u);是什么意思? 正如你所说的这些 字符 ,从哪里能找到类似的其他的字...

我在自己机器上试了一下没问题,应该是你程序的其他地报错

用以下方式,即使用val过程可以得到15位有效数字的实数。procedure TForm1.Button1Click(Sender: TObject);var s,ss:string; i,code:integer; z:extended; {使用real、double、extended 效果一样}begin s:=edit1.Text; val(s,z,code); str(z:0:2...

var A: integer; B, C, D: Double;begin A := StrToIntDef(edit1.text, 0); B := StrToFloatDef(edit2.text, 0); if ComboBox1.itemindex = -1 then label1.Caption := '估算价:'; if A

那你别变,直接 Parameters.Items[2].value:=Edit1.Text; 这样试试 按理说转化了应该是对的 还有你的数据库中是int类型还是double类型 如果是int那你这句就有问题了

我是菜鸟,但是 你可以把转换的float 类型的乘以1000000000000000 之后再转换 转换后 再通过字符串造作改变 0 0#

你后几个查询的结果中要转换为float的字段值是空的结果 即 字符串 '' 你把字符串 '' 转为 float 它当然报错了 你用 StrToFloatDef 代替 StrToFloat应该就不会报这个错了

网站首页 | 网站地图
All rights reserved Powered by www.xxsr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com