N�o consigo fazer com que minha vari�vel receba um valor do meu TEdit

12/07/2022

Boa tarde, estou usando o DELPHI 11.

Tenho um TEdit com o valor 1.365,25 e quero gravar esse valor numa vari�vel currency, mas quando tento realizar essa a��o aparece que o valor 1.365,25 n�o � um valor float v�lido. Creio que isso deve estar acontecendo porque coloquei um . no n�mero, mas tem como fazer ele aceitar esse valor?
Coloquei da seguinte forma:

procedure TfrmContasReceber.ValorJuros;
var
  lJuros, lValorNominal, lResultado, lTotal : Double;
var
  i : Integer;
var
  lDias: TDate;

begin
  i := 0;
  lJuros := StrToFloat(edtJurosMensal.Text);
  lJuros := lJuros/30;
  lValorNominal := StrToFloat(edtValorNominal.Text); //linha que est� ocorrendo o problema
  lDias := StrToInt(edtDiasAtraso.Text);
  while(i < lDias) do
  begin
    lResultado := ((lValorNominal * lJuros)/100);
    lTotal := lTotal + lResultado;
    i := i + 1;
  end;

  edtValorJuros.Text := FormatFloat(',0.00',lTotal);

end;

Renato Akira

Curtir t�pico + 0

Responder

Posts

15/07/2022

Natanael Ferreira

Para converter o valor string para vari�vel Double � necess�rio remover os pontos da string.

Para isso use StringReplace. Teste o c�digo abaixo substituindo pela sua linha que ocorre o problema:

lValorNominal := StrToFloat(StringReplace(edtValorNominal.Text, '.', '', [rfReplaceAll])); // linha que est� ocorrendo o problema

Responder

Gostei + 0