Cara filter input karakter pada komponen edit di delphi 7

Selamat siang agan-agan.Pada tutorial kali ini saya akan menyajikan pembahasan mengenai Cara filter input karakter pada komponen edit di delphi 7.Maksudnya !?Komponen edit yang notabene merupakan field untuk mengisi data yang nantinya akan kita masukan kedalam database.Untuk mengurangi kesalahan input oleh user , maka kita akan membatasi input karakter pada komponen edit.Misalnya pada field nama.Tentunya field nama hanya diisi oleh karakter alfabetis.Atau nomor telefon , yang di isi hanya dengan karakter numerik/nomor/angka.Okey , bila masih belum ngerti , kita contohkan dengan program saja.

Buka borland delphi 7 anda lalu tambahkan 2 buah komponen edit kedalam form1.Pada komponen edit1 , pilih event onKeyPress.Lalu ketikan kode berikut.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //mensetting karakter apa saja yang boleh diinput
  if not(key in['A'..'Z','a'..'z',#13,' ','.',#8]) then
    begin
      key:=#0;//bila selain karakter diatas , maka akan kosong
    end;
  if key=#13 then
    begin
      if Edit1.Text<>'' then
        begin
          //perintah bila tombol enter di tekan , dan bila edit1 tidak kosong
        end;
    end
  else
    begin
      //perintah bila komponen edit1 tidak di isi
    end;
end;

Kode diatas berfungsi untuk memfilter input dari user hanya berupa karakter alfabetsi.Selanjutnya pada komponen edit2 event onKeyPress ketikan kode berikut.

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 //mensetting karakter apa saja yang boleh diinput
  if not(key in['0'..'9',#13,' ','.',#8]) then
    begin
      key:=#0;//bila selain karakter diatas , maka akan kosong
    end;
  if key=#13 then
    begin
      if Edit2.Text<>'' then
        begin
          //perintah bila tombol enter di tekan , dan bila edit2 tidak kosong
        end;
    end
  else
    begin
      //perintah bila komponen edit2 tidak di isi
    end;
end;

Kode diatas berfungsi untuk filter agar karakter hanya berupa angka.Coba jalankan program dan ketikan angka pada edit1 , tidak muncul apa-apa bukan !?Begitupun pada edit2 , tidak bisa di input karakter alfabetis.Pertanyaannya adalah , kenapa kita harus repot-repot memfilter input pada edit !? Harusnya user lebih telaten dalam menginput data.Dalam pandangan saya , sebuah program yang baik haruslah memiliki keunggulan berupa penanganan terhadap human error.Ini penting , agar program tersebut nyaman di gunakan.Bagaimanapun , manusia acap kali melakukan kesalahan.Dan program di buat , untuk mempermudah manusia dan mengurangi tingkat kesalahan pada aktifitasnya.Sekian tutorial kali ini semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya:

Info

• Cara Mencegah Flash CS4 Terkunci DI Windows 7
• Mesin Penukar Koin
• Masuk Bengkel , Motor Malah Gosong
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Proses Hamil Yang Bikin Ngakak
• Pesawat Terbang Yang Jadi Pajangan Di Halaman Rumah
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Membuat Kue Dengan Photoshop
• Uniknya Photoshop Di Dunia Nyata
• Rush di Tabrak Mio Sampai Nungging
• Cara Membuat Animasi Sederhana Di Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Mengetahui lama komputer dinyalakan dengan delphi 7
• Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik
• Mengenal Procedure dan Function Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-4
• Tutorial Cara Install Komponen Quick Report 4 Pro Pada Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3
• Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7
• Koneksi XAMPP , DAC MySQL dan Delphi 7
• Enkripsi Yang Bisa Difungsikan Untuk Serial Number Ala Saya
• Menyembunyikan File *.rar Di Dalam File Foto..
• Perhitungan Tabel Dengan Query Pada Delphi 7

Komponen

• [SHARE]Komponen Multi Line Untuk Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-2
• Instalasi Komponen DAC MySQL Pada Delphi

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7