Skip to main content
1 de 3
Giovani
  • 2,9mil
  • 1
  • 26
  • 54

Comparação de variáveis de tipo diferente com conversão retorna resultado incorreto

Tenho o seguinte código

var
  Valor1: string;
  Valor2: Double;
begin
  Valor1 := '150.15';
  Valor2 := 150.15;

  If StrToFloat(Valor1) = Valor2 then
     ShowMessage('Iguais');
end;

Nesta situação, as vezes o Delphi entende que os valores são diferentes, porém, se utilizo o código abaixo eles são considerados iguais

    var
      Valor1: string;
      Valor2: Double;
  Valor2: Double;
    begin
      Valor1 := '150.15';
      Valor2 := 150.15;
      Valor3 :=  StrToFloat(Valor1);

      If Valor3 = Valor2 then
         ShowMessage('Iguais');
    end;

Observação: No exemplo citado estou definindo os valores diretamente para a variável, porém, o problema que eu tive ocorria da leitura de um dado da serial, mas mesmo que eu utiliza-se a função FormatFloat isso continuava ocorrendo, e se eu desse um Debug nas variáveis os valores estavam iguais, e ainda assim não eram considerados iguais no if

Giovani
  • 2,9mil
  • 1
  • 26
  • 54