求助,加急!!!!DELPHI当中,用键盘输入数据时,会出现is not a valid floating point value问题! 20
字数限制只能显示这点,vari:integer;douMoney:double;douMoney:=FieldByName('数量').AsFloat*FieldByNa...
字数限制只能显示这点,
var
i:integer;
douMoney:double;
douMoney:= FieldByName('数量').AsFloat * FieldByName('单价').AsFloat;
self.txtSPF.Text:=floattostr(douMoney);
注意:当我向txtSPF.text输入数据时就会出现错误,不知道是什么情况?
procedure TfrmJKTF.txtPCFKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
try
self.txtXFE.Text:=floattostr(strtofloat(self.txtSPF.text) + strtofloat(self.txtFF.text) + strtofloat(self.txtPCF.text));
except 展开
var
i:integer;
douMoney:double;
douMoney:= FieldByName('数量').AsFloat * FieldByName('单价').AsFloat;
self.txtSPF.Text:=floattostr(douMoney);
注意:当我向txtSPF.text输入数据时就会出现错误,不知道是什么情况?
procedure TfrmJKTF.txtPCFKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
try
self.txtXFE.Text:=floattostr(strtofloat(self.txtSPF.text) + strtofloat(self.txtFF.text) + strtofloat(self.txtPCF.text));
except 展开
3个回答
展开全部
txtSPF.text
txtFF.text
txtPCF.text
这三个文本框的东西 你都转换成了 float
这个错误很明显就是告诉你:不是一个有效的浮点数
你的三个文本 肯定输入了其他东西。
你可以在 except 里提示让他不要输入正确这些提示。
txtFF.text
txtPCF.text
这三个文本框的东西 你都转换成了 float
这个错误很明显就是告诉你:不是一个有效的浮点数
你的三个文本 肯定输入了其他东西。
你可以在 except 里提示让他不要输入正确这些提示。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个错误一定是你在文本KeyDown的事件里,获取不到正确的float数值,可以跟踪调试下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
请附上代码!!!
追问
已附上,帮忙求助呀,答辩呀~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询