Array
(
)

problemas com matriz no delphi 7

dark_whisper
   - 17 jun 2008

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.
obrigado

du_nirvana
   - 17 jun 2008

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;



dark_whisper
   - 17 jun 2008

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

[pior que os problemas so comecaram^^]

,o/