RoundTo Foksiyonunun sonucu

[Nemesis2005]

RoundTo foksiyonunu virgülden sonra iki hane bırakmak için yuvarlıyorum ama sonuc yine virgülden sonra iki hane değil uzun bir rakamlar dizisi gibi dönüyor örnek

Kod: Tümünü seç

Deger := RoundTo(194,699999999999993000,-2) gibi bir deger
showmessage(+FormatFloat('###,###0.00000000000000000',deger);

ile yine aynı değer dönüyor aslında 195,70000000000000 dönmesi gerekmiyormu;

[ofenX]

Merhaba,

Kod: Tümünü seç

 Deger := Roundto(194.699999999999993000,-2);
            showmessage(floattostr(RoundTo(194.699999999999993000,-2)));
            showmessage(FormatFloat('###,###0.00',deger));
end;

yukarıdaki showmessage lardan ilki 194,7 ikincisi 194,70 döndürür.
Siz sıfırları fazla yazmışsınız. O yüzden öyle çıkıyor.

Kolay gelsin.