Ir para conteúdo
Fórum Script Brasil
  • 0

Verificação De Campos Vazios Para Cálculo


thaflorzinha

Pergunta

tipo eu estou fazendo um cálculo.

tenho 10 campos..

eu qro saber como q eu faço o IF para verificação dos campos vazios porque quando eu executo o porgrama e coloko só o valor da caixa 1 e mando calcular (ele soma todos os campos 1 a 10) o delphi da um erro dizendo q ' " is not a valid floating point value' (eu estou declarando os campos na tabela do Interbase como numeric (10,2))

olhem como eu fiz....mais não ta dando certo....

procedure Tfrmorcamento.btncalcularvtClick(Sender: TObject);

var

a : double;

b : double;

c : double;

d : double;

e : double;

f : double;

g : double;

h : double;

i : double;

j : double;

soma: double;

begin

if (edtvt1.Text=null) then

a:=0

else

a:= StrToFloat(edtvt1.Text);

if (edtvt2.Text=null) then

b:=0

else

b:= StrToFloat(edtvt2.Text);

if (edtvt3.Text=null) then

c:= 0

else

c:= StrToFloat(edtvt3.Text);

if (edtvt4.Text=null) then

d:= 0

else

d:= StrToFloat(edtvt4.Text);

if (edtvt5.Text=null) then

e:= 0

else

e:= StrToFloat(edtvt5.Text);

if (edtvt6.Text=null) then

f:= 0

else

f:= StrToFloat(edtvt6.Text);

if (edtvt7.Text=null) then

g:= 0

else

g:= StrToFloat(edtvt7.Text);

if (edtvt8.Text=null) then

h:= 0

else

h:= StrToFloat(edtvt8.Text);

if (edtvt9.Text=null) then

i:= 0

else

i:= StrToFloat(edtvt9.Text);

if (edtvt10.Text=null) then

j:= 0

else

j:= StrToFloat(edtvt10.Text);

soma:= a+b+c+d+e+f+g+h+i+j;

dmbanco.qryOrcamento.FieldByName('SUBTOTAL').AsString:= FloatToStr(soma);

end;

me ajudem!

preciso muito disso

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...