√ Cara Merubah Tampilan Edit Box Dan Label Menjadi Format Currency Di Delphi

Adakalanya aplikasi yang kita buat (dalam hal inputan edit box, atau output label) harus sanggup menampilkan tampilan currency, nah disini saya akan sedikit menshare pengetahuan saya (harap maklum bila masih kurang :-D).

Ini yaitu pola syntax yang saya gunakan untuk merubah tampilan LABEL menjadi tampilan currency. Syntax ini saya simpan pada sebuah combo box dalam event on select:
LABEL1.Caption:='Rp'+FormatCurr('#,#0',StrToCurr(adq3.FieldByName('harga_jual').AsString));

Dan ini yaitu pola syntax yang saya gunakan untuk merubah tampilan EDIT BOX menjadi tampilan currency. Syntax ini saya simpan dalam event on select:
procedure TForm1.Edit1Enter(Sender: TObject);
begin
     edit1.Text:=edit2.Text;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
     edit2.Text:=edit1.Text;
     Edit1.Text := 'Rp'+FormatCurr('#,#0',StrToCurr(Edit1.Text))+',-';
end;

Disini saya menyiapkan 2 buah edit box (editbox2=gambar sebelah kiri, editbox1=gambar sebelah kanan). Mengapa harus ada editbox2? Ini saya lakukan guna mengantisipasi error yang terjadi pada ketika error pada pengeditan data pada editbox1, sebab pada ketika kita enter lagi editbox1 formating currency tidak akan hilang (tulisan Rp, ,-) dan ini akan mengakibatkan error input.
Skenarionya yaitu sehabis kita menginputkan nilai (harus angka, bila perlu anda buat pembatasan input biar editbox hanya mendapatkan inputan angka) pada editbox1, kemudian ketika fokus dialihkan (event on exit), tampilan editbox1 akan dirubah kedalam format currency yang sudah kita tentukan, pada ketika itu juga nilai sebetulnya dari editbox1 (bukan nilai currency) dicopy-kan ke editbox2. Naha pada ketika mengedit (event on enter pada editbox1) nilai orisinil yang ada pada editbox2 akan dikembalikan ke dalam editbox1.

Akan tetapi bila anda sudah pusing dan tidak ingin ambil pusing, ada satu komponen dari Alpha Component yang memperlihatkan anda fungsi instant untuk memakai fungsi currency yang namanya TsCurrencyEdit, untuk componennya silahkan cari di om google ya :-D.

Semoga bermanfaat, jangan lupa comment bila berkenan.

Sumber http://farihinmuhamad.blogspot.com