Delphi – Validasi Angka Input Box

Validasi Input Edit Box agar hanya dapat mengisi Angka dilakukan pada prosedur keypress di objek edit box yang akan kita buat validasinya. Dimana pada prosedur ini berfungsi pada saat pengguna atau user mengetikkan nilai melalui keyboard. Dengan adanya validasi ini dibuat agar tidak terjadinya eror pada saat pengololahan suatu nilai aritmatika. Sangat Sangat Sangat membantu kita dalam membuat pemrograman berbagis data nantinya, untuk pemilihan prosedur keypress temen temen bisa pilih objeknya kemudian lihat object inspector di kiri bawah Delphi pilih tab kedua pada properties dan klik dua kali pada on keypress ( lihat gambar dibawah ini ).

Nah langsung aja kita praktekkan ya, pertama buat design form sebagai berikut :

 

Atur Propertiesnya menjadi dibawah ini :

 

Nah berikut ini adalah alur programnya :

• Saat input box ditulis nilainya, maka kita tidak akan bisa menuliskan nilai kecuali dengan angka 0 – 9, backspace, dan enter.
• Jika nilai sudah diisi dan di enter maka akan keluar message ucapan “ Terima Kasih “.
• Jika button bersih di klik maka akan menghapus niai dan seti focus ke edit_input_kata.
• Jika button keluar di klik maka akan muncup message box konfirmasi keluar dari program.

Berikut ini adalah Listing Codenya :

1 2 3 4 5 6 7

procedure Tform_materi22.button_bersihClick(Sender: TObject); begin     edit_input_angka.Text:='';   edit_input_angka.SetFocus;   end;

saat button bersiih di klik teks input di hapus dan set focus.

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure Tform_materi22.edit_input_angkaKeyPress(Sender: TObject;   var Key: Char); begin     if not ( key in['0'..'9', #8, #13]) then     key:= #0 ;     if key = chr(13) then     begin       showmessage('Terima Kasih Banyak');     end;   end;

if not —> menyatakan bahwa adanya pengkondisian dimana jika ia tidak. key in —> menyatakan bahwa nilai yang boleh di input hanya angka 1 s/d 9 serta #8 ( backspace ) dan #13 ( enter ), Selain dari itu semua maka tidak akan berfungsi di edit box input. dan chr(13) menyatakan jika input yang tekan oleh keyboard adalah enter maka akan muncul message box ” Terima Kasih “.

1 2 3 4 5 6 7 8 9

procedure Tform_materi22.button_keluarClick(Sender: TObject); begin     if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes) then     begin       close;     end   end;

Button Keluar akan mengeluarkan Message Box Konfirmasi yakin kah akan keluar.

Dan Untuk Tampilan hasil programnya bisa dilihat dibawah ini :

 

klik disini