Float alan karşılaştırmada sorun

[adelphiforumz]

Selamlar

dxmemtable içerisinde ftfloat olarak bir alan açıyorum
açtığım alana (alan = 0.01) olarak değer atıyorum
daha sonra bu alanı
if memtable.fieldbyname(alan).asfloat = 0.01 yada
if memtablealanadi.asFloat = 0.01 dediğimde doğruluk sağlanmıyor
fakat
if StrToFloat(FloatToStr(memtablealanadi.asFloat)) = StrToFloat(FloatToStr(0.01)) dersem doğruluk sağlanıyor
sizce sorun ne olabilir.

iyi çalışmalar

[ertank]

Merhaba,

dxmemtable ile ilgili internette pek kaynak bulamadım. İlgili sayfa linki verebilir misiniz?

Test açısından aşağıdaki durumda doğruluk sağlanıyor mu acaba?

Kod: Tümünü seç

if StrToFloat(FloatToStr(memtablealanadi.asFloat)) = 0.01 then ShowMessage('evet') else ShowMessage('hayır');

[freeman35]

.asfloat değeri kontrol ettin mi? yani 0.01 den sonra yani 0.010000000008 gibi bir değer geliyor olabilir. ayrıca sabit bir değer yani '0.01' ile karşılaştıracaksan, .Asstring ile karşılaştırabilirsin. TField çeviriyi yapıyorken, benim alanım float illaki asfloat ile erişirim demeyin.

[sabanakman]

Real tipli ondalıklı sayı tiplerinde derinlerde bir yerde genellikle fark meydana gelmektedir. Bu gibi durumlarda bir yerden sonrasını ihmal etmekte fayda vardır. Mesela Currency tipinde bu iş otomatik olarak ondalıklı kısımdan 5-6 haneden sonrasını yuvarlamakta veya atmaktadır. O yüzden Currency tipli değişkene sonuç hesaplatıp, kıyaslamayı bunun üzerinden yapabilirsiniz.

Kod: Tümünü seç

var cVal:Currency;
begin
...
...
...
   cVal:=memtable.fieldbyname(alan).asfloat-0.01;
  if cVal=0 then ShowMessage('evet') else ShowMessage('hayır');
end;