evitar repetição no combobox

Delphi

23/08/2005

Estou desenvolvendo uma aplicação que prescisa pegar valores duplicados no banco de dados, mas eu não quero que quando a pessoa consulte venha os dados duplicados somente um registro unico.
por algum problema do FireBird que eu não entendo eu não consigo usar funções SQL(Distinct ou group by) pela rede só localmente porém a aplicação é cliente servidor será que alguém pode me ajudar estou pensando em jogar em combobox e fazer via programação porém eu não sei mexer muito bem com os metódos do objeto combo.
jujan


Jujan

Jujan

Curtidas 0

Respostas

Wilson Brito

Wilson Brito

23/08/2005

If ComboBox1.Items.IndexOf(´Teste´) = -1 then
ComboBox1.Items.Add(´Teste´);

InexOf retorna a posição do ítem no tstring, ou seja, se ele retornar -1 significa que ainda não existe no combo.


GOSTEI 0
Jujan

Jujan

23/08/2005

O codigo ficou assim:


procedure TForm1.Button7Click(Sender: TObject);
begin
QryAgrupar.Close;
QryAgrupar.SQL.Clear;
QryAgrupar.SQL.Add(´select numero,NOME from tbl_equipes,tab_funcionario´);
QryAgrupar.SQL.Add(´where tbl_equipes.numero_lider=tab_funcionario.numero´);
QryAgrupar.Open;
while not(QryAgrupar.Eof) do
begin
If ComboBox1.Items.IndexOf(QryAgrupar.fieldbyname(´numero´).AsString) = -1 then
ComboBox1.Items.Add(QryAgrupar.fieldbyname(´numero´).AsString);
QryAgrupar.Next;
end;
end;


GOSTEI 0
POSTAR