Menampilkan Tanda Titik Pemisah Untuk (Ribuan) di Delphi

Saat bermain main dengan komponen edit di delphi ketemu deh masalah yang sebenarnya sederhana cuman lumayan bikin pusing plus galau juga kalau gak tau triknya. hahahaha,

masalah kali ini adalah memberi tanda titik pemisah saat kita menginputkan suatu nilai mata uang.

biasanya kalau kita memasukkan suatu nilai mata uang akan muncul titik pemisah tiap 3 angka dari belakang, misalkan untuk menuliskan 3.000.000 akan ada titik untuk memisahkan antar angka. sebenernya hal ini bukanlah sesuatu yang krusial cuman kalau ditambahkan akan bisa mempercantik tampilan....

okay gak usah lagi berpanjang lebar, langsung saja kita kembali ke laptop.... hehehehe

pertama buka dulu delphi, bikin new aplication

pada form kasih 2 buah komponen edit

selanjutnya masukkan procedure dan funnction berikut pada bagian implementation

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;

Okay selesai sudah procedure dan function nya, sekarang tinggal cara panggil dan penggunaannya
double click komponen edit1
masukkan perintah dibawah ini

procedure TForm1.Edit1Change(Sender: TObject);

begin

ribuan(edit1);

edit2.text:=hapusribuan(edit1);

end;              

Beres, sekarang tinggal kita uji coba......
dan....

mision complate..!!!!

Hasil uji coba