Validasi Angka Pada EditBox pada delphi

Info Saya

----------------------

TENTANG SAYA

Nama saya Lengkapnya adalah Yudi Permana, Saya memang Bukan Seorang Blogger, Desainer atau Apapun Tapi Saya Hanya Seseorang Yang Ingin Selalu Belajar dan Ingin Tahu Sesuatu Yang Baru. Saya hanya Bisa Mengutak Atik yang ada Tanpa Tau Apa Maksud dan Tujuannya. Mohon Untuk Tidak Tersinggung Bila Ada Sesuatu yang sama Dari Blog Ini...

----------------------

Validasi Angka Pada EditBox pada delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Script untuk membuat agar TEdit pada delphi hanya bisa diisi oleh data angka saja, isikan script dibawah ini ke Event nya OnKeyPress TEdit:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

if not (key in['0'..'9', #8]) then
key:=#0;

end;

Penjelasan Source Code

if not ==> menyatakan bahwa adanya pengkondisian dimana jika ia tidak.
key in ==> menyatakan bahwa nilai yang boleh di input hanya angka dari 0 s/d 9 serta #8
(backspace). Selain dari itu semua maka tidak akan berfungsi di edit box.

Tampilan ketika program dieksekusi

EditBox hanya dapat diisi angka saja

Ditulis Oleh : Antas Delphi ~ Blogger

Anda sedang membaca sebuah artikel yang berjudul Validasi Angka Pada EditBox pada delphi,, Semoga artikel tersebut bermanfaat untuk anda, kalau mau share silahkan saja dan tidak ada tuntutan apapun dari saya !! Dan semua artikel disini tidak ada unsur untuk melakukan pembajakan dari pihak manapun tapi cuma untuk share saja.

:: Thank you for visiting ! ::