5,387
社区成员
发帖
与我相关
我的任务
分享关于 dbedit 的一点小问题
为什么我的程序
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=strtofloat(dbedit3.Text);
在调试是会出现
not a valid floating point value
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=strtofloat(dbedit3.Text);
在调试是会出现
not a valid floating point value
...全文
请发表友善的回复…
发表回复
flyingkiller 2002-11-27
- 打赏
- 举报
''不是合法的浮点数。
free007 2002-11-27
- 打赏
- 举报
先判断是否是合法的float类型，
然后将AsFloat改为Value;
然后将AsFloat改为Value;
star_of_light 2002-11-27
- 打赏
- 举报
dbedit3.text不是浮点数。
var
f:Extended;
begin
If TryStrToFloat(dbEdit3.Text,f) then
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=f
Else
ShowMessage('无效的实数！');
end;
var
f:Extended;
begin
If TryStrToFloat(dbEdit3.Text,f) then
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=f
Else
ShowMessage('无效的实数！');
end;
wjlsmail 2002-11-27
- 打赏
- 举报
if dbedit3.Text = '' then ShowMessage('null')
else
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=strtofloat(dbedit3.Text);
else
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=strtofloat(dbedit3.Text);
