Skip to main content
adicionou 2 caracteres ao conteúdo; tags editadas
Fonte Link
Maniero
  • 484,4mil
  • 94
  • 1,3mil
  • 2,2mil

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: Nono 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 Debugdebug nas variáveis os valores estavam iguais, e ainda assim não eram considerados iguais no if

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

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

Tweeted twitter.com/StackOverflowPT/status/1007869614540443648
tags editadas
Link
Junior Moreira
  • 7mil
  • 4
  • 22
  • 50
Fonte Link
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