Membatasi Abjad Pada Tedit Delphi

Kali ini hanya tutorial delphi singkat mengenai bagaimana membatasi karakter yang ada pada komponen edit delphi.Nah,kadang-kadang pada aplikasi yang kita buat kita harus membatasi karakter yang dapat dimasukkan contohnya pada edit yang isinya tahun lahir tentu mustahil kita mengisinya dengan abjad bukan ? Tentu saja harus dengan angka dan juga pada tahun hanya dibatasi 4 digit ibarat 2000, 2010 dll.Nah,kali ini aku akan menjelaskan caranya membatasi inputan karakter itu.Langsung saja yah

1) Membatasi Karakter Yang Bisa Di Masukkan

Kalau kita ingin karakter yang dapat dimasukkan dalam TEdit hanya angka kita dapat memakai event onKeyPress pada TEdit dan masukkan instruksi berikut


if not (key in ['0'..'9', #8, #13]) then key :=#0;
Catatan :yang pagar terus angka itu yaitu instruksi ascii setiap tombol dikeyboard mempunyai kodenya sendiri-sendiri jikalau untuk daftar lengkap kodenya dapat anda baca di bawah ini

Daftar Kode ASCII Keyboard Lengkap

Kalau anda mau karakter yang dapat dimasukkan hanya abjad maka kita tinggal mengganti kodenya menjadi


if not (key in ['0'..'9', #8, #13]) then key :=#0;

Yang angka 0 dan 9 itu tinggal kita ganti A dan Z saja gampang kan ?

2) Membatasi Panjang Karakter

Kalau untuk panjang karakter kita dapat mengatur pada object inspector edit itu sendiri tinggal kita cari MaxLength kemudian isi dengan panjang karakter maksimal yang diperbolehkan

Mungkin itu dulu postingan perihal membatasi karakter pada delphi semoga dapat membantu kalian yang masih mencar ilmu perihal delphi..