Validasi Form pada Delphi

Terkadang dalamCara mengatasai Cannot modify header PHP. Read more ... » pembuatan software, seorang pengembang lalai akan validasi sebuah form, hal ini sangat riskan akan terjadinya bug dalam sebuah program. Seperti Contoh, dalam form delphiPrinsip dasar pembuatan Keylogger. Read more ... » terdapat sebuah form nama, tetapi karena tidak adanya validasi angka pada form tersebut, maka seseorang dapat memasukan angka atau karakter apapun pada form nama tersebut. Dari permasalahan tersebut, sayaMembuka Command Prompt mode Administrator. Read more ... » akan menshare gimana sih membuat validasiValidasi Form Menggunakan Javascript dan Jquery. Read more ... » angka ataupun validasi Huruf pada form?Oke untukCara mengatasi Install DotNet 3.5 Windows 8. Read more ... » lebih jelasnya buat sebuah form baru dan tambahkan 2 edittext, denganTUGAS STRUKTUR DATA KELAS SAMI. Read more ... » asumsi pada edittext1 hanya boleh inputan berupa angka, dan pada edittext 2 hanya boleh inputan berupa a..z, A..Z dan backspace.

Validaisi form Delphi

Selanjutnya pada Edit1, ketikan source berikut pada event OnKeyPress :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in ['0'..'9', #8] ) then Key := #0;
end;

Dan pada edit2 lakukan yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » sama :

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in['a'..'z', 'A'..'Z',#8]) then key:=#0;
end;

Penjelasan :

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

Maksud dari source diatas adalah,  ketika suatu karakter yang diketikan tidak ada dalam range array 0..9 dan #8(Backspace) maka karakter tersebut akan diabaikan atau bernilai null, jadi yang diperbolehkan dalam suatu edit hanya range 0..9 dan backspace.

Semoga bermanfaat. by burhanudin

😀

Posted in Delphi 7, Programing and tagged , , , .