extended variant compare error

[ahmet_sinav]

hi all;
i am using firebird 2.5, fibplus and delphi xe2 (updated) on windows7 64 bit.

if dYMBP['HKS_PUANI'].AsFloat >= 0.96 then
    extHKS := 1.05
else
    extHKS := 1;

returns extHKS = 1;

At db dYMBP['HKS_PUANI'].AsFloat value is 0.96 and HKS_PUANI field is numeric(2,2). if i change the 0.96 value to 0.95 at db and code its working.

if dYMBP['HKS_PUANI'].AsFloat >= 0.95 then
    extHKS := 1.05
else
    extHKS := 1;

returns extHKS = 1.05;

after these i changed the 0.95 value 0.96 at db and code and when i try the below code its working

extDeg = 0.96
if dYMBP['HKS_PUANI'].AsFloat >= extDeg then
    extHKS := 1.05
else
    extHKS := 1;

returns extHKS = 1.05;

if i compare the value with variant its working.

that code is working too

  if math.CompareValue(dYMBP['HKS_PUANI'].AsFloat,0.96) in [0,1] then
    extHKS := 1.05

what the problem? i try above codes at another machines. is debugger error or am i making something wrong?
Best Regards;

 

[imex]

Hi,

Try:

if dYMBP['HKS_PUANI'].AsCurrency >= 0.96 then

Hope this helps.


[URL unfurl="true"]http://www.imoveisemexposicao.com.br/imoveis-venda-são_paulo-residencial-apartamento[/url]

 

[ahmet_sinav]

thnks asCurrency solve the problem. asFloat is not working stable because i tried 0,86 value it worked like 0,96 but 0,76 is working normally and 0,66 0,56 is working normally too. Interesting

 

[ahmet_sinav]

i move the bug to embarcadero quality central. pls vote.
report no : 107818

http://qc.embarcadero.com/wc/qcmain.aspx?d=107818

tnks.