Format curency di Tedit

Sekarang saya akan menulis bagaimana cara membuat format ribuan di TEdit yang sebelumya tutorial membahas cara menampilakan format ribuan di DBGrid, penasarankan?? oke ini aku ada sebuah screenshoot kayak apa sih yang dimaksud..

Naaaah… kurang lebih seperti itulah wujudnya sodara-sodara delphier sekalian, supaya tulisan angka lebih enek dipandang di mata pakek separator ribuan, jadi kaga perlu ngitung nolnya berapa saat input, oke saya jelaskan terlebih dulu fungsi ini sangat flexible silahkan rubah input-output data nya sebagai apa, bisa string, integer atau lainya sesuai kebutuhan, soalnya kadang error saat di simpan ke database karena biasanya butuhnya string atau integer, ada juga yang langsung disimpan tapi kepotong masuk kedatabasenya…

Untuk mellakukan tipudaya diatas :D :D,,, kita membutuhkan dua fungsi saya menyebunya Fungsi Ribuan dan HapusFormat, langsung saja sadur fungsinya kek dibawah ini..

Fungsi Ribuan, gunanya untuk merubah menjadi format ribuan

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

. . . Function Ribuan(Edit : TEdit):String; var  NilaiRupiah: string;  AngkaRupiah: Currency; begin if Edit.Text='' then Exit;  NilaiRupiah := Edit.text;  NilaiRupiah := StringReplace(NilaiRupiah,',','',[rfReplaceAll,rfIgnoreCase]);  NilaiRupiah := StringReplace(NilaiRupiah,'.','',[rfReplaceAll,rfIgnoreCase]);  AngkaRupiah := StrToCurrDef(NilaiRupiah,0);  Edit.Text := FormatCurr('#,###',AngkaRupiah);  Edit.SelStart := length(Edit.text); end; . . . //cara pakai, pada event OnChange TEdit, misal procedure TForm1.edkembaliChange(Sender: TObject); begin Ribuan(edkembali); end;

Setelah itu fungsi HapusFormat, berguna jika kita mau melakukan operasi hitung, simpan dan sebagainya hasil yang sudah di format dengan fungsi diatas harus di netralkan dulu

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

. . . Function HapusFormat(Nilai:TEdit):Integer; var   Hasil:String; begin   Hasil:=Nilai.Text;   Hasil:=StringReplace(Hasil,',','',[rfReplaceAll,rfIgnoreCase]);   Hasil:=StringReplace(Hasil,'.','',[rfReplaceAll,rfIgnoreCase]);   Result:=StrToInt(Hasil); end; . . . //cara pakai hampir sama, lakukan jika ingin melakukan operasi, misal Query['kembali']:=HapusFormat(edkembali); //contoh lain var i:integer; begin    i:=HapusFormat(edkembali);

Sekali lagi hasil output bisa disesuaikan kebutuhan sesuai applikasi yang kita buat, oke selamat mencoba, bagi yang mau melihat penggunan code diatas silahkan download disini.

Terimakasih, semoga bisa menjadi manfaat :) keep share and salam delphier, terimakasih jika mau meninggalkan sekedar komentar