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: 110
Kayıt: 08 Tem 2008 06:25
Konum: Antalya

Double Döndüren Fonksiyonda ondalık Problemi

Mesaj gönderen emrahgs »

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: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

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

Mesaj gönderen mkysoft »

double veri tipinin yapısında bu var. extend veri tipini kullanmanızı tavsiye ederim.
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

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

Mesaj gönderen mrmarman »

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