Format Currency Pada Tedit Delphi XE5

By: QMPC Network on 04.36

Dalam pembacaan bilangan, format sangat mempermudah, angka yang dituliskan 123456789 akan lebih sulit dibaca ketimbang 123.456.789. Pada tutorial kali ini penulis akan mencoba membuat 1 procedure dan function untuk membuat format yang berfungsi jika TEdit diketik secara otomatis mengubah menjadi bilangan berformat currency dan function untuk menghapus format currency ke format biasa.

Langkah 1 :
Buka Delphi XE5, buat sebuah project, kemudian tambahkan procedure ini sebelum {$R *.dfm}

procedure ribuanrp(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;

Langkah 2 :
Selanjutnya untuk menggunakan Format currency kita cukup menuliskan seperti berikut ini :

ribuanrp(edit1);

Langkah 3 :
Hasilnya seperti berikut ini :

Langkah 4 :
Semalat mencoba :D