Erro na soma sa variável
Olá, estou tentando criar uma variável de soma onde fica dando um erro que ja estou uns três dias tentando resolver, se algem poder me ajudar agradeço.
O erro é esse " ' ' is not a valid iteger value."
Codigo que estou usando;
****************************************************************************************
procedure TfrmCaixa.saldoPastor;
var
tot : real;
begin
tot := totalEntrada / 100 * StrToInt(edtPercDirPast.Text) ;
lblSaldoPastorDir.Caption := FormatFloat('R$ #,,,,0.00', tot);
EdtSaldoPastor_lbl.Text := FormatFloat('###0.00', tot);
sou iniciante kkkk
agradeeço a ajuda
O erro é esse " ' ' is not a valid iteger value."
Codigo que estou usando;
****************************************************************************************
procedure TfrmCaixa.saldoPastor;
var
tot : real;
begin
tot := totalEntrada / 100 * StrToInt(edtPercDirPast.Text) ;
lblSaldoPastorDir.Caption := FormatFloat('R$ #,,,,0.00', tot);
EdtSaldoPastor_lbl.Text := FormatFloat('###0.00', tot);
sou iniciante kkkk
agradeeço a ajuda
Quilson Lira
Curtidas 0
Melhor post
Emerson Nascimento
01/03/2021
o problema deve estar no conteúdo de edtPercDirPast.Text, cujo conteúdo não pode ser transformado em INTEIRO. Tente transformar em float.
procedure TfrmCaixa.saldoPastor; var tot: real; aliq: real; begin aliq := StrToFloatDef(edtPercDirPast.Text, 0); // se não conseguir transformar em float, retorna 0 tot := totalEntrada / 100 * aliq; lblSaldoPastorDir.Caption := FormatFloat('R$ #,0.00', tot); EdtSaldoPastor_lbl.Text := FormatFloat(',#.00', tot); end;
GOSTEI 1
Mais Respostas
Quilson Lira
28/02/2021
Emerson, muito obrigado, funcionou!
Você é o cara!!
Você é o cara!!
GOSTEI 0