Pesquisar no Programero

terça-feira, 17 de junho de 2008

Inserir e retirar itens de ListBox

Nesse exemplo temos uma lista de itens em um ComboBox e quando clicamos no botao inserir o ListBox é verificado, caso não haja um item igual ele insere, e o botao remove faz o oposto, verifica se o item existe, caso exista ele é removido.

Baixe aqui o exemplo.


procedure TForm1.InserirClick(Sender: TObject);
var
v_i: integer;
v_a: boolean;

begin
//VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER NÃO INSERE
TRY
FOR v_i := 0 TO ListBox1.Items.Count-1 DO
BEGIN
IF ComboBox1.Text = ListBox1.Items[v_i] THEN
BEGIN
v_a := TRUE;
Break;
END;
END;
IF v_a = FALSE THEN
ListBox1.Items.Add(ComboBox1.Text);
EXCEPT
END;
end;

procedure TForm1.RemoverClick(Sender: TObject);
var
v_i: integer;

begin
//VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER DELETA
TRY
FOR v_i := 0 TO ListBox1.Items.Count-1 DO
BEGIN
IF ComboBox1.Text = ListBox1.Items[v_i] THEN
ListBox1.Items.Delete(v_i);

END;
EXCEPT
END;
end;

2 comentários:

  1. gostaria de saber com inserir itens de listbox em combobox me ajudem por favor

    ResponderExcluir
  2. Olá Anonimo, talvez esse post lhe ajude http://www.delphipages.com/forum/showthread.php?t=156723

    []s...

    ResponderExcluir

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.