Cara Membersihkan TEdit Secara Cepat Di Delphi 7

GROSIR KAOS POLOS & KAOS MURAH

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;  

procedure bersihLama;
begin
  with form1 do
    begin
      Edit1.Clear;
      Edit2.Clear;
      Edit3.Clear;
      Edit4.Clear;
      Edit5.Clear;
      Edit6.Clear;
      Edit7.Clear;
      Edit8.Clear;
      Edit9.Clear;
      Edit10.Clear;

      Edit1.Enabled:=false;
      Edit2.Enabled:=false;
      Edit3.Enabled:=false;
      Edit4.Enabled:=false;
      Edit5.Enabled:=false;
      Edit6.Enabled:=false;
      Edit7.Enabled:=false;
      Edit8.Enabled:=false;
      Edit9.Enabled:=false;
      Edit10.Enabled:=false;
    end;
end;

Lalu double-klik button1 dan ketikan kode berikut.

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  bersihLama;
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;  

procedure bersihCepat;
 var i : Integer;
begin
  with Form1 do
    begin
      for i := 0 to ComponentCount-1 do  //menghitung jumlah component
      if (Components[i] is TEdit) then   //menyortir hanya component TEdit
      begin
        (Components[i] as TEdit).Text := '';  //mebersihkan TEdit
        (Components[i] as TEdit).Enabled:=false; //disabled TEdit
      end;
  end;
end;

Lalu double-klik button1 dan ketikan kode berikut.

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  bersihCepat;
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.

|| Facebook Bagi2 Software Dan Ipad Gratis Loh! Download Disini

• Tweet
• Share

Baca artikel lainnya :