lt;[EMAIL PROTECTED]>
To:
Sent: Monday, April 04, 2005 4:15 PM
Subject: Re: [delphi-br] Comparação não funciona (entre duas variaveis do
tipo real)
Eu faria assim, vc terá que definir quantas casas decimais são o suficiente
para finalizar a comparação.
if StrToFloat(FormatFloat('0&#x
Eu faria assim, vc terá que definir quantas casas decimais são o suficiente
para finalizar a comparação.
if StrToFloat(FormatFloat('0', var1 * 1000)) <> StrToFloat(FormatFloat('0',
var2 * 1000)) then
ShowMessage('Diferente');
Eu uso uma sub função que recebe o valor e o número de casas d
Já foi discutido isto uma vez e tanto precisei q
tive de desenvolver uma funcao para nao ter mais
problemas até a postei aki...
ai vai novamente caso precise:
funciona igual a strcomp mas com variaveis float
em vez de string
Function Compara(Valor1,Valor2 :Variant)
:Integer;
Var
Pos1, Po
IL PROTECTED]>
To:
Sent: Monday, April 04, 2005 3:26 PM
Subject: Re: [delphi-br] Comparação não funciona (entre duas variaveis do
tipo real)
>
> -BEGIN PGP SIGNED MESSAGE-
> Hash: SHA1
>
> O problema é que string não tem valor absoluto.
> Use extended, que a compar
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
O problema é que string não tem valor absoluto.
Use extended, que a comparação funciona...
var
var1, var2: extended;
begin
var1:=1.36655656565;
var2:=1.36655656564;
if var1 > var2 then
showmessage('var1 é maior');
end;
Filipe escreveu:
eu sempre transformo pra string pra comparar...
- Original Message -
From: "Francisco Thiago" <[EMAIL PROTECTED]>
To:
Sent: Monday, April 04, 2005 2:32 PM
Subject: [delphi-br] Comparação não funciona (entre duas variaveis do tipo
real)
>
> Caros amigos
>
> Meu patrão estava escrevend
6 matches
Mail list logo
