Validasi Angka
if not ( key in['0'..'9', #8, #13]) thenbegin key:= #0 ;
end;
syntax di atas anda masukan kedalam OnKeyPress yang ada di TEdit. syntax ini di gunakan apabila user tidak boleh mengetik huruf pada TEdit. Biasanya di gunakan pada kolom Edit text yang membutuhkan angka sebagai inputan, seperti: Harga, jumlah, no, dll.dengan validasi ini, bisa juga saudara modifikasi dengan beberapa komponent tambahan.
contoh: di beri TLabel dan TTimer, maka akan menjadi sebuah validasi, ketika user mencet huruf akan muncul pesan berupa label yang "kedap kedip".
Dan Ni Validasi Untuk Inputan Hurufnya
begin
if not (Key in['a'..'z', 'A'..'Z',#8]) then
begin
key:=#0;
Application.MessageBox('Harus Inputan Huruf!!)','Informasi',MB_OK+MB_ICONINFORMATION );
end;
Bingung gan, report gan,,.,
anak zaman sekarang ndek suruh belajar, kog malah nunggu enak'e thogg,,tapi gug papa yg penting ada niatan untuk belajar,,, berhubung saya sedikit kasihan,, saya kasih contoh sederhana,na saja iaa, hehehe
http://www.mediafire.com/download.php?6o09jy4eg1yt368
demikian dalam postingan ini, Semoga bermanfaat,.,.
And Tunggu postingan berikut nya.(kalau ada waktu luang... hehehehehehehe...)
jangan Lupha tinggalkan comment and Like-Nya dONK.. (y)
Tidak ada komentar: