Dejavu Campus Blog (Donny E Suprayogo)

Secara default, Tedit pada Delphi ketika diinput akan menampilkan angka tanpa titik atau pemisah ribuan. Tetapi ada kasus yang membutuhkan format Currency atau format yang menggunakan titik dan koma pemisah, misalnya pada saat menginput angka 1000000, diharapkan agar Tedit secara otomatis mengubah inputan menjadi 1.000.000.

Disini saya akan mencoba menguraikan sedikit bagaimana melakukannya.
Sebagai awal, terlebih dahulu tambahkan komponen TEdit pada Form kemudian pada event onchange dari komponent TEdit tersebut tambahkan script sehingga menjadi:

procedure TForm1.edit1Change(Sender: TObject);
var NilaiRupiah: string; AngkaRupiah: Currency;
begin
NilaiRupiah := edit1.text;
{menghapus titik dan koma yang ada pada inputan, pada bagian ini Anda bisa menghapus kemungkinan yg bisa diinput oleh user, tujuannya adalah menormalkan inputan sebelum diconvert ke currency}
NilaiRupiah := StringReplace(NilaiRupiah,’,',”,[rfReplaceAll,rfIgnoreCase]);
NilaiRupiah := StringReplace(NilaiRupiah,’.',”,[rfReplaceAll,rfIgnoreCase]);
{Convert string menjadi currency}
AngkaRupiah := StrToCurrDef(NilaiRupiah,0);
{Format Currency menjadi #,###}
edit1.Text := FormatCurr(‘#,###’,AngkaRupiah);
{memulai inputan pada karakter terakhir pada TEdit, tujuannya agar kursor tidak kembali pada awal}
edit1.SelStart := length(edit1.text);
end;

Sekarang pada saat TEdit1 diinput, dengan sendirinya akan menyesuaikan dengan format #.###
Sebagai catatan:
Format ini hanya akan ditampilkan pada Tedit, tetapi pada saat diinput ke database ataupun di0perasikan, nilai dari inputan pada TEdit tersebut masih dalam nilai defaultnya (tanpa titik pemisah).