为什么我的程序
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
var
f:Extended;
begin
If TryStrToFloat(dbEdit3.Text,f) then
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=f
Else
ShowMessage('无效的实数!');
end;
然后将AsFloat改为Value;
else
dm.CDS_INSU.FieldByName('IN_AFIndPer').AsFloat :=strtofloat(dbedit3.Text);