Yetkinforum.com | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Yetkinblog.com
ForumAlem

ForumAlem
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 Pascal Sayıların Virgüllü Yazılması

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ToPrAk
Admin
Admin
avatar

Mesaj Sayısı : 457
Kayıt tarihi : 05/08/08
Yaş : 28
Nerden : KONYA

MesajKonu: Pascal Sayıların Virgüllü Yazılması   Cuma Ağus. 08, 2008 6:14 pm

Sayıların Virgüllü Yazılması Eğer sayılarınızın kullanıcı tarafından rahatlıkla okunabilmesini sağlamak istiyorsanız bu fonksiyon işinize çok yarayacak.
Sayıyı virgüllü olarak göstererek kullanıcının sayıları rahatlıkla okumasını sağlamış olacaksınız.

Function SayiNokta(Sayi:Comp):String;
Var
Uzunluk : Byte;
Sayim : String;
Begin
Str(Sayi:4:0,Sayim);
Uzunluk:=Length(Sayim);
If Uzunluk>3 then Insert('.', Sayim , Uzunluk - 2);
If Uzunluk>6 then Insert('.', Sayim , Uzunluk - 5);
If Uzunluk>9 then Insert('.', Sayim , Uzunluk - ;
SayiNokta := Sayim;
End;


Örnek:

sayım:=sayınokta(1500000)
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
Pascal Sayıların Virgüllü Yazılması
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Volkan Konak Ayvalık Konseri
» kişisel ileti yazıları
» Bildiğimiz rockçıların isimlerini yazalım............
» Yazının Altını ve Üstünü Çizmek !
» TRaBZoNSPoR MaRŞLaRı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumAlem :: Programlama Dilleri :: PascaL-
Buraya geçin: