小弟我的有关问题!(不是给分少而是小弟我就这么点分)
我的问题!(不是给分少而是我就这么点分)
edit17.text:=
floattostr(
(StrToFloat(edit12.text)+
StrToFloat(edit11.text)+
StrtoFloat(edit13.text)+
StrToFloat(edit14.text)+
StrToFloat(edit15.text)+
StrToFloat(edit16.text)
)*strtofloat(edit7.text)/1000
我在实际使用的过程中会出现空值的情况,(比如edit11.text的值为空),但是为空时就会转化出错,提示为 ' 'is not a valid floating point value;
请大家帮我想想解决的办法.
------解决方案--------------------
var
RealData : double;
RealData := 0;
if Trim(edit12.text) <> ' ' then
RealData := RealData + StrToFloat(Trim(edit12.text));
.
.
.
使用判断,然后把不为空的值相加,为空的就不处理了,这样就可以解决你的问题
------解决方案--------------------
IF TRIM(EDITX.TEXT) = ' ' THEN eDITX.TEXT := '0 ';
edit17.text:=
floattostr(
(StrToFloat(edit12.text)+
StrToFloat(edit11.text)+
StrtoFloat(edit13.text)+
StrToFloat(edit14.text)+
StrToFloat(edit15.text)+
StrToFloat(edit16.text)
)*strtofloat(edit7.text)/1000
我在实际使用的过程中会出现空值的情况,(比如edit11.text的值为空),但是为空时就会转化出错,提示为 ' 'is not a valid floating point value;
请大家帮我想想解决的办法.
------解决方案--------------------
var
RealData : double;
RealData := 0;
if Trim(edit12.text) <> ' ' then
RealData := RealData + StrToFloat(Trim(edit12.text));
.
.
.
使用判断,然后把不为空的值相加,为空的就不处理了,这样就可以解决你的问题
------解决方案--------------------
IF TRIM(EDITX.TEXT) = ' ' THEN eDITX.TEXT := '0 ';