Fórum Filtro para listbox #183244

procedure TForm1.Button1Click(Sender: TObject);
var a: String;
begin
        a:= Copy(Edit1.Text, 1, 1);
        If a = ´x´ Then//verifica se a primeira letra é um x
        ListBox1.Items.Append(Edit1.Text);
        Edit1.Clear;
        Edit1.SetFocus;
end;

procedure TForm1.cbFiltroClick(Sender: TObject);
var
  i: Integer;
begin
  if (Sender as TCheckBox).Checked then
    for i:=ListBox1.Items.Count-1 downto 0 do
      if not (Pos(´x´,ListBox1.Items[i])<>0) then
        ListBox1.Items.Delete(i);
end;

procedure XXX;
var
  NovoItem: String;
begin
  ...
  if cbFiltro.Checked then begin
    if Pos(´x´, NovoItem)<>0 then
      ListBox1.Items.Add(NovoItem);
  end;
  ...
end;