function dondursene(Ver:string): Double;
begin
Result := StrToFloat(Ver);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Rakam:Double;
begin
Rakam :=dondursene('0,472');
ShowMessage(FormatFloat('###,###,##0.0000000000000000000000',Rakam ));
end;
[Window Title]
Project1
[Content]
0,4719999999999999750000
[OK]
Arkadaşlar Yukarıdakiler Benzer Fonksiyonlarım var Dönene Değerde Gereksiz Ondalık Haneler Oluşuyor, Bu Problem le Daha Önce Karşılaşan ve Çözüme Ulaşan Oldumu.
Double Döndüren Fonksiyonda ondalık Problemi
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Re: Double Döndüren Fonksiyonda ondalık Problemi
double veri tipinin yapısında bu var. extend veri tipini kullanmanızı tavsiye ederim.
Re: Double Döndüren Fonksiyonda ondalık Problemi
Merhaba.
- Bu konuyla ilgili Rudy Velthuis (TeamB) tarafından kaleme alınmış güzel bir makale var.
- Özellikle noktalı sayılar ile haşır neşir olacakların bunu okuması faydalı olacaktır.
- Sitesine baktım kapalıydı, ben de arşivden PDF yapıp paylaşayım istedim.
bu linkten PDF olarak indirebilirsiniz.
Başarılar.
- Bu konuyla ilgili Rudy Velthuis (TeamB) tarafından kaleme alınmış güzel bir makale var.
- Özellikle noktalı sayılar ile haşır neşir olacakların bunu okuması faydalı olacaktır.
- Sitesine baktım kapalıydı, ben de arşivden PDF yapıp paylaşayım istedim.
bu linkten PDF olarak indirebilirsiniz.
Başarılar.