IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Temmuz 2013, 22:53   #1
Çevrimdışı
aSi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Delphi ile Sayıyı Metine Çevirme




Bu fonksiyonu Copy/Paste yaparak kullanabilirsiniz. Fonksiyon geriye String çeviriyor dikkat.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
function Cevir(Val : extended) : String; const hanex : array[0..2, '0'..'9'] of String = ( ('', 'Bir ', 'İki ', 'Üç ', 'Dört ', 'Beş ', 'Altı ', 'Yedi ', 'Sekiz ', 'Dokuz '), ('', 'On ', 'Yirmi ', 'Otuz ', 'Kırk ', 'Elli ', 'Atmış ', 'Yetmiş ', 'Seksen ', 'Doksan '), ('', 'Yüz ', 'İki Yüz ', 'Üç Yüz ', 'Dört Yüz ', 'Beş Yüz ', 'Altı Yüz ', 'Yedi Yüz ', 'Sekiz Yüz ', 'Dokuz Yüz ')); katx : array[0..5] of String = ('', 'Bin ', 'Milyon ', 'Milyar ', 'Trilyon ', 'Katrilyon '); var Kat : Integer; function _Cevir(sy : String) : String; var lsy, hn : Integer; begin Result := ''; if sy = '' then Exit; if (sy = '1') and (kat = 1) then begin Result := 'Bin'; Exit; end; hn := 0; lsy := length(sy); while (hn < 3) and (hn < lsy) do begin Result := hanex[hn, sy[lsy - hn]] + Result; Inc(hn); end; Result := Result + katx[kat]; Inc(kat); if lsy > 3 then Result := _Cevir(copy(sy, 1, lsy - 3)) + Result; end; begin Result := ''; kat := 0; Result := _Cevir(formatFloat('##0', int(Val))); end;


__________________
Doğruları biliyorsan, yalanları dinlemek eğlencelidir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
cevirme


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
1-999 arasında girilen sayıyı yazıya çevirme aSi C ve C++ 3 12 Temmuz 2012 21:16
Bir sayıyı bir tabandan başka bir tabana çevirmek Cemalizim C ve C++ 0 19 Temmuz 2008 15:23
Bir Sayıyı Asal Çarpanlarına Ayırmak Cemalizim C ve C++ 0 19 Temmuz 2008 15:21
Sayıyı Ondalıklara bölmek? ByFly mIRC Scripting Sorunları 2 01 Temmuz 2007 10:08