Format Ribuan

Hai sahabat delphi, kali ini saya ingin membagi atau men "share" bagaimana cara membuat format ribuan pada pascal atau delphi. Biasanya kita sebagai seorang programmer khususnya pascal tidak jeli atau bahkan tidak pernah menggunakan angka ribuan seperti 2000 atau 20000 . Nah dengan menggunakan format ribuan ini maka kita bisa membuat angka ribuan ke dalam format ribuan seperti 2000 menjadi 2.000 atau 12345 menjadi 12.345 . Mari lihat caranya :

1. Pertama tama buka Delphi terlebih dahulu
2. Buat Form sembarang atau terserah , kalo admin contohkan seperti gambar di bawah ini
   
   
3. Kemudian buat procedure ribuan dan function ribuan seperti code di bawah ini :

   procedure ribuan(edit : Tedit);
   var
     sRupiah: string;
     iRupiah: Currency;
   begin
     //ribuan --> currency ( menyesuaikan setting windows )
     sRupiah := edit.Text;
     sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]); // hilangkan char koma , pemisah //ribuan selain IDR
     sRupiah := StringReplace(sRupiah,'.','',[rfReplaceAll,rfIgnoreCase]); //remove char titik .    pemisah //ribuan IDR
     iRupiah := StrToCurrDef(sRupiah,0); // convert srupiah ke currency
   
     //currency --> format ribuan
     edit.Text := FormatCurr('#,###',iRupiah);
     edit.SelStart := length(edit.text);
   end;
   
   function hapusribuan(edit : Tedit): string;
   var hasil : string;
   begin
     hasil := edit.text;
     hasil := StringReplace(hasil,',','',[rfReplaceAll,rfIgnoreCase]);
     hasil := StringReplace(hasil,'.','',[rfReplaceAll,rfIgnoreCase]);
     hapusribuan := hasil;
   end;

   
   
4. Kemudian klik 2 kali pada edittext 1 , 2 dan 3 yang akan menuju pada OnChange di tiap tiap edit text kemudian masukkan code seperti di bawah ini

   procedure TForm1.Edit1Change(Sender: TObject);
   begin
   ribuan(edit1);
   end;
   
   procedure TForm1.Edit2Change(Sender: TObject);
   begin
   ribuan(edit2);
   end;
   

5.  Yang terakhir adalah menghitung jumlah edit 1 dan edit 2 dengan cara klik 2 kali pada button 1 seperti di bawah ini

   procedure TForm1.Button1Click(Sender: TObject);
   begin
   edit3.Text := floattostr(strtofloat(hapusribuan(edit1))+strtofloat(hapusribuan(edit2)));
   ribuan(edit3);
   end;
   

    
6.  Langkah terakhir adalah simpan project dengan cara klik file - project as - kasih nama sesuai dengan keinginan kemudian compile atau tekan F9
7. Demikian

Format Ribuan 2015-05-26T09:54:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown