problemas com matriz no delphi 7
17/06/2008
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
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
Dark_whisper
Curtir tópico
+ 0
Responder
Posts
17/06/2008
Du_nirvana
Olá, verifique se isso ajuda:
Botão 1 insere;
Botão 2 remove;
Botão 1 insere;
Botão 2 remove;
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;
Responder
17/06/2008
Dark_whisper
Resolveu sim,muito obrigado mesmo!!!!!!
[pior que os problemas so comecaram^^]
,o/
[pior que os problemas so comecaram^^]
,o/
Responder
Clique aqui para fazer login e interagir na Comunidade :)