Tuesday, 10 January 2017T1/10/2017 09:29:00 pm

CARA MUDAH MEMBUAT INPUTAN HANYA ANGKA PADA EDIT TEXT DI DELPHI

Salam blogger….pada kesempatan kali ini saya akan share tentang cara mudah membuat inputan hanya angka pada edit text di Delphi. Pada program Delphi tentu kita pernah melihat edit text yang hanya bisa di input menggunakan angka saja dan tidak bisa memasukan huruf pada edit text. Biasanya fungsi ini digunakan pada proses aritmatika / perhitungan, baik itu penjumlahan pengurangan, pembagian ataupun perkalian yang hanya membutuhkan inputan angka saja. Fungsi hanya angka ini juga bisa ditemukan pada inputan nomor-nomor atau ID otomatis yang hanya bisa berupa angka.

Kali ini saya akan berbagi trik bagaimana cara membuat inputan hanya angka saja di edit text pada Delphi. Cara nya tidak begitu sulit dan terbilang cukup mudah dibuat, kita hanya perlu menambahkan sedikit coding program pada edit text nya, cara kerjanya adalah pada saat kita menginputkan angka pada edit text maka program akan terus dijalankan, sebaliknya jika kita menginputkan huruf di edit text maka akan muncul peringatan bahwa edit text yang di input hanya berupa angka saja. Adapun caranya adalah sebagai berikut :

Pertama – tama buat sebuah project baru di Delphi, tambahkan sebuah edit text di form tersebut dan klik edit text tersebut, selanjutnya lihat pada object inspector dan cari event On key Press, lalu klik 2x dan tambahkan koding berikut :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9', #8, #13, #32]) then
begin
key :=#0;
MessageDlg('Nilai yang diinput harus angka !!!',mtError,[mbOK],0);
edit1.SelectAll;
edit1.SetFocus;
end
end;


Jika sudah coba sobat jalankan programnya dengan menekan F9/RUN. dan coba inputkan angka atau huruf pada edit text tersebut, jika yang diinputkan berupa angka, maka program akan tetap jalan, sedangkan jika yang di inputkan huruf, maka pada program tidak akan menerima inputan huruf dan akan muncul peringatan seperti pada gambar di atas.

Demikian postingan saya kali ini tentang bagaimana cara membuat inputan hanya angka pada edit text di Delphi, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "CARA MUDAH MEMBUAT INPUTAN HANYA ANGKA PADA EDIT TEXT DI DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status