Convert Integer To Rupiah Pada Delphi

Dalam Membuat Aplikasi Yang Sifatnya Penjualan atau Berhubungan Dengan Mata Uang, Kita Perlu Merubah Format Angka Menjadi Rupiah agar aplikasi Menjadi Lebih User Friendly. Nah, Pada Postingan Ini admin Ingin Berbagi Resep Tentang Cara Merubah Format Integer Menjadi Format Mata Uang Rupiah.

Sedikit saya jelaskan disini bahwa convert integer ke format rupiah disini akan dilakukan ketika anda merubah angka yang ada dikomponen edit karena Perintah Convertnya diletakkan pada Event On Change Milik Komponen Edit. Jika anda ingin prosesnya ada di Button anda dapat mengkreasikannya sendiri. hehe

Saya Asumsikan Sobat Sudah Membuka Tools Delphi

Step 1 : Tambahkan Sebuah Komponen Edit

Step 2 : Tambahkan Code dibawah ini pada Event OnChange Milik Komponen Edit

var
Rp  : string;
  Rph : Currency;
begin
  Rp := Edit1.Text;
  Rp := StringReplace(Rp,',','',[rfReplaceAll,rfIgnoreCase]);
  Rp := StringReplace(Rp,'.','',[rfReplaceAll,rfIgnoreCase]);
  Rph := StrToCurrDef(Rp,0);
  edit1.Text := FormatCurr('#,###',Rph);
  edit1.SelStart := length(edit1.text);
end;

Selesai. Berikut Hasil ScreenShoot Milik saya :