Fórum como fazer campo tipo float aceitar valor em branco... #134215

// Soma Lucro do Mês
        Begin
        Qsomar.close;
        QSomar.sql.Clear;
        QSomar.sql.add(´Select Sum (ValorRecebido) From tabela´) ;
        QSomar.sql.add(´Where Data >= ´ +´´´´ +FormatDateTime(´mm/dd/yyyy´,DataInicial) +´´´´ + ´and data <´ +´´´´ + FormatDateTime(´mm/dd/yyyy´,DataFinal) +´´´´);
        QSomar.Prepare;
        QSomar.open;
        end;

//Soma do Prejuízo
  Begin
  QSubtrair.close;
  QSubtrair.sql.Clear;
  QSubtrair.sql.add(´Select Sum (ValorGasto) From tabela´) ;
  QSubtrair.sql.add(´Where Data >= ´ +´´´´ +FormatDateTime(´mm/dd/yyyy´,DataInicial) +´´´´ + ´and data <´ +´´´´ + FormatDateTime(´mm/dd/yyyy´,DataFinal) +´´´´);
  QSubtrair.Prepare;
  QSubtrair.open;
 end;

 // Calcula Lucro
 Lucro:=StrToFloat(DBBruto.Caption);
 Prejuizo:=StrToFloat(DBprejuizo.Caption);
 if (DBBruto.Caption=´´) and (DBprejuizo.Caption=´´) then
 Begin
 LLucro.Caption:=´0,00´;
 Exit;
 End else
 LLucro.Caption:=FormatFloat(´#0.00´, lucro-prejuizo);