Jumat, 13 Desember 2013

Filter Input di Komponen Edit Delphi (Hanya Angka)

Terkadang kita perlu untuk memfilter Inputan dari User. Suatu misal hanya memperbolehkan menginputkan angka saja. Hal ini tentu saja untuk meminimalisir terjadinya Error pada program yang kita buat. Saran Saya, jangan terlalu percaya pada inputan User sebab terkadang bisa jadi seorang user Jahil sengaja menginputkan karakter aneh untuk menguji Action Handling Program anda. Lebih Lebih Jika anda membuat website. Tentu saja hal itu adalah Bug (Celah) untuk seorang Hacker.

Untuk Memfilter Inputan dari Edit Delphi, Silahkan Copas Code dibawah ini ke Event On Key Press Milik Komponen Edit Anda. Sebenarnya bisa juga diletakan di componen lain seperti Combobox dan Memo.
if not ( key in['0'..'9', #8, #13]) then
key:= #0 ;

Maksud Code diatas adalah Jika yang ditekan di Keyboard bukan angka 0 Sampai 9 maka Tekan Code ASCII 8 (Back Space) yang artinya adalah hapus kemudian Tekan Lagi Code ASSCII 13 (Enter).

Oke deh. Segitu aja ya dulu. lain kali kita sambung lagi. Udah ngantuk ni. mau bobok dulu. Semoga bermanfaat dan berhasil tentunya gan. Wassalam. :)

Tidak ada komentar:

Posting Komentar