listbox com vinculo

Delphi

09/02/2005

tenho um array de 40 listbox....para cada listbox carrego dados
de uma tabela, agora quero excluir um item do listbox
mas quero tb exclui-lo da tabela...!
tem como vincular o item do listbox com o registro que está lá...


nao da para excluir o item da tabela usando o conteudo que esta
no listbox....terei que vincular o codigo do registro ao item do listbox
tem como fazer isto?
trocando em miudos, vincular um codigo de registro ao item do listbox....sem
estar mostrando este codigo de registro...mostrando outra coisa



se usar dblistbox...nao fica ruim trabalhar com 40 datasource+querys...e etcs?


se tivesse como atribuir de alguma forma a cada item do listbox um codigo....eu ja fazia de tudo!


Delphi_open

Delphi_open

Curtidas 0

Respostas

Beppe

Beppe

09/02/2005

Vc pode usar o método TListBox.Items.AddObject(´String´, Objeto);

Este objeto pode ser a chave primária do da tabela, ou se for um banco FB, pode usar RDB$DB_KEY.


GOSTEI 0
Delphi_open

Delphi_open

09/02/2005

cc:=1;
ll:=1;

listbox[cc][ll].Items.AddObject(´texto´,123);


listbox[cc][ll].Items.AddObject(´texto´,256);


imagine tenho um listbox com estes dados

123 -> ss
256 -> aa

se o cara pedir para excluir o itemindex=0 eu tenho que dar delete na tabela where codigo=123.

se o cara pedir para excluir o itemindex=1 eu tenho que dar delete na tabela where codigo=256.

e os dois codigos(123/256) nao podem aparecer no listbox...tem que estar vinculado ao item.....estou ainda com duvida...estou em aguardo


GOSTEI 0
Beppe

Beppe

09/02/2005

O que irá aparecer na listbox é o texto apenas.

Lb := listbox[cc][ll];

Para inserir:
Lb.Items.AddObject(´texto´,TObject(123));

Para deletar:
Cod := Integer(Lb.Objects[Lb]);
sqlDelete := ´DELETE FROM Tabela where Codigo = ´ + IntToStr(Cod);

PS: Você não deveria ter iniciado um novo tópico para isso. :evil:


GOSTEI 0
POSTAR