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.

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

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/