DevMedia

problemas com matriz no delphi 7

0
bom,sou novo no forum e na area de desenvolvimento tambem.
Estou com um problema porque nao sei como usar a matriz e tenho que resolver um projeto atraves dela.

O esquema tem um combobox e um listbox,um botao de ´adicionar´ e um de ´retirar´.
Como deve dar pra imaginar,quero que a opcao selecionada no comobox quando clicada no botao adicionar apareca no list,e saia se for clicado no botao retirar,mas nao sei exatamente como fazer.



[se o topico tiver no lugar errado,ou infringir alguma regra podem exclui-lo,mas respondam minha duvida por favor]

obrigado


Publicidade

Respostas (2)

0
Resolveu sim,muito obrigado mesmo!!!!!!


[pior que os problemas so comecaram^^]


,o/


0
Olá, verifique se isso ajuda:
Botão 1 insere;
Botão 2 remove;

#Código
procedure TForm1.Button1Click(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.Button2Click(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;