Erro na soma sa variável

Delphi

28/02/2021

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
Quilson Lira

Quilson Lira

Curtidas 0

Melhor post

Emerson Nascimento

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

Quilson Lira

28/02/2021

Emerson, muito obrigado, funcionou!
Você é o cara!!
GOSTEI 0
POSTAR