Membuat Tombol Pencarian pada Listbox

Untuk menggunakan tombol pencarian pada komponen Listbox, maka yg dapat dilakukan adalah mengarahkan Listbox.Selected pada data yang dicari. Tidak bisa hanya menampilkan data yang dicari saja karena tidak ada database di dalamnya.

Caranya adalah :

1. Buat 3 komponen yaitu TEdit, TButton, dan TListBox.
2. Pada Listbox Properties MultiSelected: "True" supaya dapat menseleksi data lebih dari 1.
3. Pada uses tambahkan System.StrUtils;
4. Masukkan coding ke dalam Button Onclick:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  ListBox1.Items.BeginUpdate;
  try
    for I := 0 to ListBox1.Items.Count - 1 do
      ListBox1.Selected[I] := ContainsText(ListBox1.Items[I], Edit1.Text);
  finally
    ListBox1.Items.EndUpdate;
  end;
end;