Sayılara Binde Ayracı Eklemek

Yazan:
6 Ekim 2010
Reklam Alanı

function frmt(yer:string):string;
var
s:string;
uzunluk:integer;
kalan,k,dgr:integer;
begin
s:=’.';
uzunluk:=Length(yer);
dgr:=uzunluk div 3;
kalan:=uzunluk – (dgr*3);
label1.caption:=inttostr(kalan);
if yer=’0′ then
begin
yer:=’0,’;
result:=yer;
exit;
end;
if label1.caption<>’0′ then
begin
insert(s,yer,kalan+1);
for k:=1 to dgr do begin
if k=dgr then begin
insert(‘,’,yer,(kalan +(k*3)+k+1));
result:=yer;
exit;
end;
insert(s,yer,(kalan +(k*3)+k+1));
end;
end;

Benzer Yazılar:

  1. Yazılan Fiyatı Metine Çevirmek
  2. Metnin İçerisindeki Kelime Sayısını Bulan Kod
  3. Metin İçerisinden Bir Karakter Silmek
  4. Listbox İtemlerinin Sırasını Mause ile sürükleyerek Değiştirmek
  5. ASCII Kodlarını Bulmak
  6. Merkez Bankasindan Gunluk Doviz Kurlarini Alma Kodu
  7. Formun Başlığına Kayan Yazı Ekleyen Kod
  8. Bilgisayardaki Sürücü Listesini Almak
  9. Tüm Dosya ve Klasörlerin Listesini Almak
  10. Ekran Klavyesi
 Etiketler:
Borland Delphi

Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.

Yorum yapın

Güvenlik Kodunun Resmi
*

Gizlilik Politikası