Sebenarnya kode-kode ini aku dapatkan dari internet sewaktu kuliah dulu dan dalam catatan notepad aku tidak ada keterangan sumber, kalau mungkin ada yang merasa merupakan penulis orisinil wacana hal kode-kode ini silahkan tinggalkan komentar di bawah biar aku sanggup menyertakan kredit.
Code: delphi
//untuk membatasi input abjad hanya sanggup berupa bilangin numeric (0 hingga 9)
IF not (key in[‘0’..‘9’]) THEN
key : = #0;
//untuk membatasi input abjad hanya sanggup berupa alphabet (A hingga 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;
Sumber http://farihinmuhamad.blogspot.com