Catatan : Cara Mengosongkan Isi Edit Text Delphi

hemm...mulai dari mana ya??? gini aja deh...maap ya aku anggep semua dah tahu tentang Delphi dan bahasa pemrograman Pascal. 

okeee, kita mulai. 

ini catatan pertamaku, maaf kalo tulisannya masih amburadul yak...😄

yang ingin ku catat kali ini mengenai cara untuk mengosongkan isi komponen TEdit atau turunan dari class TCustomEdit. gini...biasanya ketika kita membuat sebuah program, kita menggunakan komponen TEdit untuk melakukan inputan. nah...terus setalah selesai melakukan inputan kita juga pasti akan membersihkan isi dari inputan tersebut kan...biasanya kita akan memanggil satu per satu nama dari setiap komponen TEdit kemudian bersihkan satu per satu...kaya gini nih...

Contoh Form

Contoh Kode Memanggil Satu Per Satu Nama Komponen

oke...itu contohnya kalo manggil nama komponen satu per satu. sebenarnya ga ada masalah sih, tapi misalkan dalam satu form terdapat banyak komponen TEdit, bisa kebayangkan berapa baris yang harus dituliskan di kode hanya untuk menghapus isi nya.

nah...oleh sebab itu saya ingin mencatat cara yang kadang digunakan untuk menghemat baris kode 😁

begini caranya...

Contoh Kode Membersihkan Isi Komponen

disini saya membuat procedure baru, dengan nama "bersihEdit", sebenernya bisa langsung pake procedure dari event onClick-nya si TombolBersih...tapi bisa juga dibikinin prosedur sendiri.

nah...pakai cara gini, kita ga perlu nulis nama tiap komponen TEdit...udah dicariin tu sama programnya... 😄 

Gini penjelasan dari baris kode nya :

• Pada prosedur bersihEdit, kita akan melakukan perulangan menggunakan for ... to ... do
• Pada baris kondisi for itu ada kode ComponentCount, ini maksudnya jumlah komponen yang ada pada Form Parent nya, yaitu TForm1
• Nah...didalam for itu ada percabangan menggunakan if ... then, kondisinya adalah jika komponen yang ditemukan itu adalah TEdit maka perintah selanjutnya dijalankan
• Terakhir, menjalankan perintah untuk menghapus isi TEdit
• Selesai

Tambahan : ini contoh untuk komponen TEdit, untuk komponen lain bisa di explore sendiri yak...tinggal nambahin percabangan lagi aja, misal untuk membersihkan TComboBox berarti kita cukup menambahkan percabangan 

if Components[i] is TComboBox then 

  TComboBox(Components[i]).ItemIndex := -1;

Oke...untuk contoh programnya bisa di download disini catatan pertama sampe sini dulu lah ya...salam