Erro nos valores delphi

Delphi

15/11/2015

Alguém pode me ajudar neste erro?

É que toda vez que digito um numero nos campos quantidade e valor aparece esse erro...

[img]http://arquivo.devmedia.com.br/forum/imagem/442536-20151115-112245.jpg[/img]
Geremias

Geremias

Curtidas 0

Respostas

William

William

15/11/2015

Sem ver o código eu vou "chutar", esse Edits possuem rotinas de cálculos no evento OnExit deles?
GOSTEI 0
Geremias

Geremias

15/11/2015

Sem ver o código eu vou "chutar", esse Edits possuem rotinas de cálculos no evento OnExit deles?


codigo do DBEdit6 = Quantidade

DBEdit4.Text := FloatToStr(StrToFloat(DBEdit6.Text) * StrToFloat(DBEdit7.Text));


Codigo do DBEdit7 = Preco

Mantem o mesmo codigo de quantidade.


OBS: o DBEdit4 = Total

[img]http://arquivo.devmedia.com.br/forum/imagem/442536-20151116-090431.jpg[/img]
GOSTEI 0
Rafael Bosco

Rafael Bosco

15/11/2015

Você está tentando alimentar o DBEdit4 que é total, pelo o que foi informado nos campos Quantidade e Preço, mas, pelo print, é possível verificar que você não informou nada no campo Preço, logo, ele não vai conseguir multiplicar se o Edit estiver vazio, por isso apresenta a mensagem, faz o seguinte:

procedure CalcularTotal;
var
  Total, Preco: Currency;
  Qtde: Integer;
begin
   if (TryStrToInt(DBEdit6.text, Qtde)) and (TryStrToCurr(DBEdit7.text, Preco)) then
   begin
     Total := Qtde * Preco;
      DBEdit4.text := FloatToStr(Total);
   end
   else
      ShowMessage('Informar a quantidade e o preço para calcular o total!');
end;
GOSTEI 0
Rafael Santos

Rafael Santos

15/11/2015

Bom dia amigo,

Está fazendo a conversão de String para Float?
Se está, o campo que vc está tentando converter não está vazio?

tenta usar:

StrToFloatDef( StringReplace(Trim(SeuCampo.Text),'.','',[rfReplaceAll,rfIgnoreCase]),0)


Creio que resolva seu problema.
GOSTEI 0
POSTAR