Alguem explica isso? Seria um BUG no delphi?

Question

Ol� pessoal:Tenho um exemplo:Coloque um bot�o no form e coloque esse c�digo.Veja o resultado. Algu�m pode explicar o que acontece???Pode-se trocar os valores....procedure TForm1.Button1Click(Sender: T...

Nildo · Answer

Abre o Evaluation e coloca a express�o depois de ter atribuido os valores:

fvalor1 - fvalor

Voc� vai ver que tem diferen�a.
Pode ser que sejam as casas decimais que n�o s�o apresentadas visualmente

Faelcavalcanti · Answer

:shock: :shock: :shock:
Cara que loukura � essa. Estive tentando e n�o consegui, fiz um gambiarra e coloquei na for�a e deu certo! :lol: :lol: :lol:

const valordefault : Real = 20.15;
var
fvalor, fvalor1: Extended;

begin

fvalor1 := 20.15;

fvalor := 0;
fvalor := fvalor + 0.60;
fvalor := fvalor + 19;
fvalor := fvalor + 0.01;
fvalor := fvalor + 0.54;


if (StrToFloat(FloatToStr(fvalor)) = StrToFloat(FloatToStr(valordefault))) then
showmessage(�� igual�);

if fvalor > fvalor1 then
showmessage(�fvalor � maior�);

if fvalor < fvalor1 then
showmessage(�fvalor � menor�);

Mas � l�gico que n�o funciona, � como se fossem dois objetos distintos, de forma que n�o adianta verificar a condi��es dos dois e sim o valor liter�rio, como refer�ncia na mem�ria entre si.

Andremuller · Answer

Muito interessante.Fiz alguns testes:Assim funcionou:aumentando o valor para 20.16 e somando 0.02 ao inv�s de 0.01ou colocando a express�o toda em uma linhaou passando as vari�veis de real para currency...

Macario · Answer

Ola Programadores.A diferen�a ocorre usando tipo: Real, Double ou Extended.Usando Currency, n�o ocorre a diferen�a.Como normalmente uso tipos Double ou Extended, comparo da seguinte forma[code:1:34cb1a6e16]varfvalor, fvalor1: Extended;begin fvalor1 := 20.15; fvalor := 0; fvalor := fvalor + 0.60; fvalor := fvalor + 19; fvalor := fvalor + 0.01; fvalor := fvalor + 0.54; fvalor := Arredonda(fvalor,4); fvalor1 := Arredonda(fvalor1,4); if fvalor = fvalor1 then showmessage(�� igual�); if fvalor > fvalor1 then showmessage(�fvalor � maior�); if fvalor < fvalor1 then showmessage(�fvalor � menor�);[/code:1:34cb1a6e16][code:1:34cb1a6e16]function Arredonda(Value: Extended; Decimals: integer): Extended;var Factor, Fraction: Extended;begin Factor := IntPower(10, Decimals); (* A convers�o para string e depois para float evita erros de arredondamentos indesej�veis.*) Value := StrToFloat(FloatToStr(Value * Factor)); Result := Int(Value); Fraction := Frac(Value); if Fraction >= 0.5 then Result := Result + 1 else if Fraction <= -0.5 then Result := Result - 1; Result := Result / Factor;end;[/code:1:34cb1a6e16]Agora se alguem puder dizer as diferen�as de como se comporta cada tipo de variavel, seria legal....

Fred · Answer

cara, doidera mesmo!!! com o tipo double acontece a mesma coisa, mas com Currency funciona!!!...

Faelcavalcanti · Answer

[quote:6781411545=�Macario o Aspone�]Ola Programadores.

A diferen�a ocorre usando tipo: Real, Double ou Extended.

Usando Currency, n�o ocorre a diferen�a.

[/quote:6781411545]

Cara no help t�m :

The following remarks apply to fundamental real types. * Real48 is maintained for backward compatibility. Since its storage format is not native to the Intel CPU family, it results in slower performance than other floating-point types. * Extended offers greater precision than other real types but is less portable. Be careful using Extended if you are creating data files to share across platforms. * The Comp (computational) type is native to the Intel CPU and represents a 64-bit integer. It is classified as a real, however, because it does not behave like an ordinal type. (For example, you cannot increment or decrement a Comp value.) Comp is maintained for backward compatibility only. Use the Int64 type for better performance. * Currency is a fixed-point data type that minimizes rounding errors in monetary calculations. It is stored as a scaled 64-bit integer with the four least-significant digits implicitly representing decimal places. When mixed with other real types in assignments and expressions, Currency values are automatically divided or multiplied by 10000.

Ou seja ele est� atribu�do a um tipo literal de 8 bytes possuindo de 19-20 d�gitos. Essa s� o Mr. M sabe !!! :lol:

F�rum Alguem explica isso? Seria um BUG no delphi? #274665