Double Döndüren Fonksiyonda ondalık Problemi

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
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.
Cevapla
emrahgs
Üye
Mesajlar: 108
Kayıt: 08 Tem 2008 05:25
Konum: Antalya

Double Döndüren Fonksiyonda ondalık Problemi

Mesaj gönderen emrahgs » 16 Tem 2015 01:06

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.

mkysoft
Kıdemli Üye
Mesajlar: 2904
Kayıt: 25 Ağu 2003 11:35
Konum: İstanbul
İletişim:

Re: Double Döndüren Fonksiyonda ondalık Problemi

Mesaj gönderen mkysoft » 16 Tem 2015 02:36

double veri tipinin yapısında bu var. extend veri tipini kullanmanızı tavsiye ederim.

Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4717
Kayıt: 09 Ara 2003 08:13
Konum: Ankara
İletişim:

Re: Double Döndüren Fonksiyonda ondalık Problemi

Mesaj gönderen mrmarman » 16 Tem 2015 11:43

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.
Resim Resim

Cevapla