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

Question

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;
请大家帮我想想解决的办法.

Answer 1

var
  RealData : double;
  RealData := 0;
  if Trim(edit12.text)<> '' then
    RealData := RealData + StrToFloat(Trim(edit12.text));
  .
  .
  .
  使用判断，然后把不为空的值相加，为空的就不处理了，这样就可以解决你的问题

Answer 2

IF TRIM(EDITX.TEXT) = '' THEN eDITX.TEXT := '0';

Answer 3

可以说的详细一个吗?我接触delphi时间不太长,好多都还不会用呢

Answer 4

hellolongbin(一个人) taxpayer() 同意上2人