Menambahkan dan menghapus text pada Listbox di Delphi 7

Menambahkan dan menghapus text pada Listbox di Delphi 7

Cara menambahkan dan menghapus text pada Listbox di Delphi 7 dapat ditempuh dengan langkah-langkah sebagai berikut:

11.   Membuka aplikasi Delphi 7 dengan cara Start – All Program – Borland Delphi 7 – Delphi 7 atau melakukan klik 2x atau klik kanan lalu pilih open pada icon aplikasi Delphi 7 di desktop sehingga jendela IDE Delphi  7 terbuka

22.  Menambahkan komponen editText1, ListBox1, Button1 dan Button2 ke Form (user interface Delphi 7), kemudian editText dikosongkan dengan cara mengosongkan  caption di object inspector dan berlanjut dengan mengganti caption Button1 dengan Tambah serta mengganti caption Button2 dengan hapus maka tampilan formnya adalah  seperti gambar di bawah ini

33.      Menambahkan source code program dengan melakukan klik 2 x di button tambah, source code adalah  sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

listbox1.Items.Add(edit1.Text);

end;

44.   Menambahkan source code program dengan melakukan klik 2 x di button hapus, source code adalah  sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox1.DeleteSelected;

end;

end.

5. Jalankan Program dengan memilih menu run atau menekan F9 di keyboard

 Kita dapat menambahkan data berapun yang kita inginkan ke listbox. Demikianlah cara Menambahkan dan menghapus text ke listbox di Delphi 7, semoga dapat memberi manfaat