ActiveDelphi

[thallesvssouza]

Boa Noite Amigos!
Estou com uma pequena duvida, estou criando uma tela de "Faturamento de Ordem de Serviço", nela eu tenho as forma de pagamento "DINHEIRO, CHEQUE, CHEQUE-PRÉ, CARTÃO, CARTÃO PARCELADO, CRÉDITO EMPRESA", aonde vai ser informado a forma de pagamento e seu valor correspondente até ser igual o valor da O.S.
Porem, eu tenho um DBEdit para cada forma para digitar o valor e faço uma soma aonde exibo em um PANEL:
public
{ Public declarations }
procedure somatotal;
end;

procedure TF_FaturamentoPedido.somatotal;
begin
PanelTotalRecebido.Caption := FloatTOSTR ( StrToFloat(DBEditDinheiro.Text) + StrToFloat(DBEditCheque.Text) + StrToFloat(DBEditChequePre.Text) + StrToFloat(DBEditCartaoDebito.Text) + StrToFloat(DBEditCartaoCredito.Text) + StrToFloat(DBEditCreditoParcelado.Text) + StrToFloat(DBEditCreditoEmpresa.Text));
end;

procedure TF_FaturamentoPedido.DBEditCreditoParceladoExit(Sender: TObject);
begin
somatotal;
end;

procedure TF_FaturamentoPedido.DBEditDinheiroExit(Sender: TObject);
begin
somatotal;
end;

procedure TF_FaturamentoPedido.DBEditCartaoCreditoExit(Sender: TObject);
begin
somatotal;
end;

procedure TF_FaturamentoPedido.DBEditCartaoDebitoExit(Sender: TObject);
begin
somatotal;
end;

procedure TF_FaturamentoPedido.DBEditChequeExit(Sender: TObject);
begin
somatotal;
end;

procedure TF_FaturamentoPedido.DBEditChequePreExit(Sender: TObject);
begin
somatotal;
end;

procedure TF_FaturamentoPedido.DBEditCreditoEmpresaExit(Sender: TObject);
begin
somatotal;
end;

Nisto eu tenho um problema, por ser DBEdit, quando eu digito um valor e saio do DBEdit ele apresenta uma mensagem de: " is not a valid floating point value.
Ele apresenta essa mensagem, porque ele tenta somar um valor com um campo VAZIO.
Minha duvida é, como posso contornar está situação?
Agradeço desde já, desculpe pelo texto longo, é que sou iniciante, mais já tentei buscar em outros lugares uma solução, porem não achei.

[anderbelluno]

simples:

[thallesvssouza]

[anderbelluno]

[thallesvssouza]

[natanbh1]

Uma outra maneira de se fazer é trocar StrToFloat por StrToFloatDef.

A diferença entre eles é que com StrToFloatDef você pode estabelecer um valor padrão (no seu caso o zero) em caso de falha na conversão, como estava acontecendo com você.

Ficaria assim:

[abagattini]

Uma outra alternativa seria atribuir um valor inicial ao campo na base de dados.