Pembatasan Input Karakter di Delphi

Sebenarnya kode-kode ini saya dapatkan dari internet sewaktu kuliah dulu dan dalam catatan notepad saya tidak ada keterangan sumber, jika mungkin ada yang merasa merupakan penulis asli tentang hal kode-kode ini silahkan tinggalkan komentar di bawah agar saya dapat menyertakan kredit.

Code: delphi 

//untuk membatasi input karakter hanya dapat berupa bilangin numeric (0 sampai 9)

IF not (key in[‘0’..‘9’]) THEN

   key : = #0;

//untuk membatasi input karakter hanya dapat berupa alphabet (A sampai Z)

IF not (key in[‘A’..‘Z’]) THEN

   key : = #0;

//kombinasi alphabet dan numeric

IF not ( (key in[‘A’..‘Z’]) and (key in[‘0’..‘9’]) ) THEN

   key : = #0;