Membuat angka nominal di editbox, otomatis di tambah Rp.

Bagi kawan-kawan yang masih bingung untuk cara membuat format tampilan rupiah dalam editbox delphi, berikut saya sedikit memberikan cara Gimana untuk membuat angka nominal di editbox, tp otomatis di tambah ada Rp. (contoh : Rp. 50.250.000,00
Code:

1. var  
2. nominal:extended;  
3. Begin  
4. nominal:=1500;  
5. edit1.text:=format('Jumlah =%m',[nominal]);  
6. End;  

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---