Cara Membersihkan TEdit Secara Cepat Di Delphi 7



Selamat siang agan-agan.Pada postingan kali ini saya akan membahas mengenai Cara Membersihkan TEdit Secara Cepat Di Delphi 7.Maksudnya !? Biasanya ketika kita sudah selesai menginputkan data kedalam database , data yang di inputkan melalui komponen TEdit tentu harus di bersihkan untuk kemudian digunakan lagi dalam proses penginputan berikutnya.Bila ternyata jumlah komponen TEditnya sangat banyak , tentu akan merepotkan bila harus membersihkannya satu-satu.Mari kita contohkan dengan membuat program.Yang satu menggunakan cara lama , dan satu lagi menggunakan cara cepat.
1.Cara Lama
Buka borland Delphi 7 anda lalu tambahkan 10 buah component TEdit dan 1 buah component button.Buat sebuah procedure dengan nama bersihLama.Ketikan kode berikut setelah {$R *.dfm}


  1. procedure bersihLama;  
  2. begin  
  3.   with form1 do  
  4.     begin  
  5.       Edit1.Clear;  
  6.       Edit2.Clear;  
  7.       Edit3.Clear;  
  8.       Edit4.Clear;  
  9.       Edit5.Clear;  
  10.       Edit6.Clear;  
  11.       Edit7.Clear;  
  12.       Edit8.Clear;  
  13.       Edit9.Clear;  
  14.       Edit10.Clear;  
  15.   
  16.       Edit1.Enabled:=false;  
  17.       Edit2.Enabled:=false;  
  18.       Edit3.Enabled:=false;  
  19.       Edit4.Enabled:=false;  
  20.       Edit5.Enabled:=false;  
  21.       Edit6.Enabled:=false;  
  22.       Edit7.Enabled:=false;  
  23.       Edit8.Enabled:=false;  
  24.       Edit9.Enabled:=false;  
  25.       Edit10.Enabled:=false;  
  26.     end;  
  27. end;  

Lalu double-klik button1 dan ketikan kode berikut.


  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. begin  
  3.   bersihLama;  
  4. end;  

Sekarang jalankan program anda , lalu klik button1.Semua component TEdit yang ada langsung bersih dan tidak bisa di edit.Cara seperti itu memang tidaklah salah.Namun tentu akan memakan banyak waktu bila ternyata kita harus melakukan hal yang sama (mengetik semua nama component TEdit) secara berulang-ulang.Untuk itu , mari kita bandingkan dengan cara cepat.

2.Cara Cepat
Buat sebuah program baru di Delphi 7 anda.Tambahkan 10 buah component TEdit dan 1 buah component button.Buat sebuah procedure dengan nama bersihCepat.Ketikan kode berikut setelah {$R *.dfm}


  1. procedure bersihCepat;  
  2.  var i : Integer;  
  3. begin  
  4.   with Form1 do  
  5.     begin  
  6.       for i := 0 to ComponentCount-1 do  //menghitung jumlah component  
  7.       if (Components[i] is TEdit) then   //menyortir hanya component TEdit  
  8.       begin  
  9.         (Components[i] as TEdit).Text := '';  //mebersihkan TEdit  
  10.         (Components[i] as TEdit).Enabled:=false//disabled TEdit  
  11.       end;  
  12.   end;  
  13. end;  

Lalu double-klik button1 dan ketikan kode berikut.


  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. begin  
  3.   bersihCepat;  
  4. end;  

Jalankan program anda lalu klik pada button1.Apa yang terjadi !? Tentu hal sama ketika kita menggunakan caraLama.Namun kali ini , kode yang di gunakan jauh lebih sedikit tentunya.Lebih praktis , karena bila nantinya kita menambahkan component TEdit lagi , kita tidak perlu merubah kodenya sedikitpun.Okey , sekian untuk postingan kali ini , semoga bermanfat.

0 Response to " Cara Membersihkan TEdit Secara Cepat Di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!