Validasi EditBox Anggka dan Huruf

Pada kesempatan kali ini, dimana akan saya bahas mengenai listing agar EditBox hanya bisa diinput karakter tertentu saja.
Misalnya agar EditBox hanya bisa diisi dengan bilangan, bukan karakter huruf.

Program berikut menunjukkan cara agar EditBox hanya bisa diisi dengan bilangan heksadesimal, yakini (0..9) , (A..F) , atau (a..f).

1. Procedure TFrom1.Edit1KeyPress (sender: TObject; Var Key: Char);  
2. begin  
3. if not(((Key>#48) and (key<=#57)) 0r ((key>=#65) and (key<=#70)) or (key>=#97) and (key<=#102)) or (key=#8)) then key:= #0;  
4. end;  

Listing diatas kalian gunakan pada event Keypress di EditBox yang ingin kalian berikan validasinya.

Semoga Bermanfaat :)