首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

小弟我的有关问题!(不是给分少而是小弟我就这么点分)

2012-02-05 
我的问题!(不是给分少而是我就这么点分)edit17.text:floattostr((StrToFloat(edit12.text)+StrToFloat(ed

我的问题!(不是给分少而是我就这么点分)
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 ';

热点排行