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))
Pergunta
thaflorzinha
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