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

Posted by Antas Delphi on - Rating: 4.5

Title : Validasi Angka Pada EditBox pada delphi
Description : Script untuk membuat agar TEdit pada delphi hanya bisa diisi oleh data angka saja, isikan script dibawah ini ke Event nya OnKeyPress TEdit:...