Format Ribuan Otomatis pada Delphi - Hallo sahabat Zona Tiga, Pada Artikel yang anda baca kali ini dengan judul Format Ribuan Otomatis pada Delphi, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Delphi7, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Format Ribuan Otomatis pada Delphi

Pada postingan sebelumnya saya berbagi tutorial tentang delphi yang saya kasih judul "Input Huruf Kapital Otomatis di delphi" dan sekarang saya akan berbagi tutorial berikutnya tentang bagaimana membuat TEdit menampilkan format ribuan secara otomatis.

Maksud dari judul tersebut yaitu agar ketika kita akan menginputkan format mata uang/ribuan melalui TEdit kita tidak harus menginputkan tanda titik (.) sebagai pemisah angka ribuan, kita menginputkan angka saja maka secara otomatis tampilan pada TEdit akan merubah ke format ribuan secara otomatis.

Cara ini juga bermanfaat agar kita tidak salah menginpukan jumlah mata uang yang akan di inputkan, sehingga pengguna nantinya jauh dari resiko kesalahan dalam menginputkan mata uang/harga.

Oke, langsung saja simak caranya dibawah ini :

1. buat Fungsi Ribuan, gunanya untuk merubah menjadi format ribuan.

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;

2. Klik TEdit, pada Object Inspector pilih Even => klik 2x pada OnChange, panggil fungsi ribuan yang tadi telah dibuat.

procedure TForm1.Edit1Change(Sender: TObject);
begin
Ribuan(Edit1);
end;

3. Run, lihat hasilnya.

Semoga bermanfaat.

Demikianlah Artikel Format Ribuan Otomatis pada Delphi

Sekianlah artikel Format Ribuan Otomatis pada Delphi kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Judul : Format Ribuan Otomatis pada Delphi
link : Format Ribuan Otomatis pada Delphi