Fórum Erro nos valores delphi #537210

15/11/2015

0

Delphi

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

Responder

Posts

16/11/2015

William

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

Gostei + 0

16/11/2015

Geremias

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]
Responder

Gostei + 0

17/11/2015

Rafael Bosco

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;
Responder

Gostei + 0

17/11/2015

Rafael Santos

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.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar