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

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)