Membantasi Input Karakter pada TEdit

Dear Delphier,

Perlu diketahui bahwa yang termasuk kedalam karakter Heksadesimal adalah:

1. Karakter dari 0..9
2. Karakter dari A..F
3. Karakter dari a..f

Contoh kode program:

...
...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not
  (
  ((Key > #48) and (Key <= #57)) or
  ((Key >= #65) and (Key <= #70)) or
  ((Key >= #97) and (Key <= #102)) or
  (Key = #8)
  ) then
  begin
  // Tahan karakter agar tidak dimunculkan
  Key := #0;
  end;
end;
...
...

Dari potongan kode program diatas, bisa terlihat dengan jelas bahwa untuk karakter lebih dari #48 dan kurang dari sama dengan #57 memiliki arti range di interval tersebut. Untuk karakter diluar range tersebut akan diabaikan dengan memberikan notifikasi karakter null atau #0.

Contoh Project:

URL: https://www.facebook.com/download/406442942754950/Membatasi%20karakter%20hanya%20untuk%20Heksadesimal.rar

Semoga FAQ ini bermanfaat dan bisa menambah wawasan anda seputar pemrograman dengan menggunakan Delphi