Membuat Format Currency pada Edit delphi

Selamat sore kali ini saya pengen bahas mengenai Format  Currency pada Edit delphi langsung aje deh.

Jika membaca nilai mata uang seperti ini 9878989 temen - temen pasti agak ribet bacanya sebenernya berapa ya kan, nah supya lebih mudah bacanya kita buat format menjadi 9.878.989 nah sekarang bagaimana implementasinya pad Tedit delphi

 

nah disni akan kita buat 1  procedure dan 1 function, yaitu untuk membuat format dan yang satu lagi untuk menghapus format agar pada saat dituliskan pada Tedit, secara otomatis mengubah menjadi bilangan berformat currency, tetapi juga bisa dijumlahkan dengan menghapus formatnya terlebih dahulu.

Langsung buat procedure dan functionya

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;

Nah selanjutnya kalo ingin make format curensinya tinggal panggi procedurenya aje

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

 Ok  sekian semoga bermanfaat

sumber
http://www.arradyscode.com/2013/01/13/format-currency-pada-tedit-delphi.html