4

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

2 Respostas 2

5

Se você precisa de igualdade exata não pode usar um Double. Não é possível em todos os casos. Ele tem um formato binário que não pode representar todos os números possível, então algo que parece o mesmo pode não ser, depende da forma que foi obtido. Veja Qual a forma correta de usar os tipos float, double e decimal?.

Não sei ao certo no Delphi porque ocorre a diferença. Ou esse código é um pouco diferente do real onde obteve o resultado, ou a linguagem tem alguma otimização que traz um resultado diferente, o que é estranho, afinal o fato de armazenar em uma variável não deveria trocar a semântica, mas cada linguagem com sua preferência, já vimos nesta página que tem coisas esquisitas em Delphi. Pode ser que esteja interpretando alguma coisa equivocadamente.

Extendend não resolve o problema, afinal ele é um Double com mais precisão, mas ainda inexato, no máximo o disfarça, o que é pior. Funcionará, mas não estará certo. Pode ser que nunca dê erro, mas por definição pode dar.

Fiat 147 todo detonado andando pelas ruas

Tem como resolver se espalhar arredondamentos pelo código todo, mas é gambi da grossa.

A única solução real é um tipo decimal no lugar de binário, o expoente binário não permite todos os valores (2) que estamos acostumados (10).

Não conheço a implementação do Currency do Delphi, ele seria a solução, mas pela observação do Bacco ele foi mal-feito (ambos não temos certeza). Um tipo decimal deveria ser em essência um inteiro, não necessariamente Integer com um expoente embutido indicado as casas decimais (tem outras formas de implementar isto). Aí funciona e está certo.

Tenho uma resposta que é meio que um compêndio sobre o assunto.

Exemplo correto em Java.

Veja mais.

Coloquei no GitHub para referência futura.

11
  • 1
    @JúniorMoreira veja a resposta linkada, o fato de ser ponto flutuante já indica que o valor real nao é o que você vê: Qual a forma correta de usar os tipos float, double e decimal?
    – Largato
    Commented 14/06/2018 às 19:00
  • 1
    @JúniorMoreira você no primeiro comentário disse que ele representa ponto flutuante, agora disse que é long, não entendi direito. É float ou é long? Não tenho prática com os tipos específicos do Delphi.
    – Largato
    Commented 14/06/2018 às 20:36
  • 2
    @JúniorMoreira Acabo de ver um manual (muito ruim por sinal) que chama tudo de "decimal", misturando float com decimal (que são coisas completamente diferentes). O fato é que se Extended for igual o Long do C, ele é inteiro e preciso. Se for igual o Float do C, é impreciso (e você não vê o valor exato na maior parte dos casos). Me pareceu que o unico tipo de valor com decimal sem problemas para Delphi seria o Currency
    – Largato
    Commented 14/06/2018 às 20:41
  • 2
    ... e mesmo assim, parece que ele só é "preciso" por forçar arredondamento no float. Eu teria que ver a implementação real para poder discorrer melhor. O fato é que qualquer coisa que não seja armazenada com valor literal não presta para operações financeiras. Se alguém com experiência em Delphi puder dar mais detalhes técnicos, agradeço.
    – Largato
    Commented 14/06/2018 às 20:49
  • 2
    Ou seja, disfarçou melhor e agora não estão vendo mais o problema, mas ele está lá pronto para explodir em algum momento. Pena que eu não posso colocar uma imagem em comentário...
    – Maniero
    Commented 15/06/2018 às 12:48
3

Se vai utilizar a função StrToFloat considere passar para ela uma string com ',' e não '.' para separador decimal.

Outro detalhe é o Tipo da Variavel que vai receber o resultado.

Na System.SysUtils temos:

function StrToFloat(const S: string): Extended;

var
  Valor1: string;
  Valor2: Extended;
begin
  Valor1 := '150,15';
  Valor2 := 150.15;

  If StrToFloat(Valor1) = Valor2 then
     ShowMessage('Iguais');
1
  • Só um detalhe, o separador decimal pode ser variável entre '.' e ',' conforme as definições do formatsettings. Se não inicializada pelo sistema, é pego as configurações regionais do windows como padrão.
    – Confundir
    Commented 14/06/2018 às 17:44

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .