format angka ke rupiah

Proses input angka rupiah, akan lebih manarik, lebih memudahkan 
interaksi dengan user, jika proses input tersebut dalam format ribuan ( 
rupiah ).

Berikut ini trik untuk proses input dalam format ribuan ( rupiah ) :

1. Pada form, tambahkan component Edit ( Tedit )

2. Pada Component TEdit, tambah code pada Event OnKeyPress


Code ini untuk validasi input... (yg diinput hanya angka saja)

procedure Tf_main.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //selain angka (0..9)& backspace( #8 ), input dimatikan
  if not(key in['0'..'9',#8]) then
    key:=#0
end;


3. Pada Component TEdit, tambah code pada Event OnKeyUp



Code ini unntuk format angka ke rupiah atau sebaliknya

procedure Tf_main.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
  sRupiah: string;
  iRupiah: Currency;
begin
  //ribuan --> currency ( menyesuaikan setting windows )
  sRupiah := Edit1.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
  edit1.Text := FormatCurr('#,###',iRupiah);
  edit1.SelStart := length(edit1.text);
end;


Lihat hasilnya: ( screenshot)