Assalammu'alaikum.Wr.Wb. Saya datang lagi untuk membagi-bagikan ilmu (tutorial) Delphi kepada anda semua, wkwkwk...Pada kali ini saya membagikan tutorial tentang Memvalidasi EditText pada Delphi, oke lanjut saja ke contoh program.
Program berikut menunjukkan cara agar EditBox hanya bisa diisi dengan bilangan heksadesimal, yakini (0..9) , (A..F) , atau (a..f).
Procedure TFrom1.Edit1KeyPress (sender: TObject; Var Key: Char); begin 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; end; |
Jangan lupa tinggalkan komentar ... EmoticonEmoticon