Erro na soma sa variável
28/02/2021
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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;Emerson Nascimento
Responder
Mais Posts
Clique aqui para fazer login e interagir na Comunidade :)
