Tambah dan Hapus Item pada ListBox Delphi

Komponen:

1. Edit (Tab Standard)

2. Button1 dan Button2 (Tab Standard)

3. ListBox (Tab Standard)

Properties:

1. Edit1 (Hapus kata Edit1 pada Properties Text)

2. Button1 (Ubah Properties Caption menjadi “Tambahkan“)

3. Button2 (Ubah Properties Caption menjadi “Hapus“)

Desain Form seperti gambar berikut:

Masukkan kode program berikut pada Button1 (“Tambahkan“):

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
end;

Dan masukkan kode program berikut pada Button2 (“Hapus“):

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.DeleteSelected;
end;

Jalankan program dan ketikkan kata atau kalimat pada Edit1 lalu klik tombol “Tambahkan“, ulangi hingga beberapa kali. Hapus Item yang dipilih dengan klik tombol “Hapus“. Hasilnya seperti gambar dibawah ini.

Download Source Code disini.