| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
marcosbaixista
Profissional
Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR
|
 Enviada: Ter Set 24, 2013 4:15 pm Assunto: Verificar se valor já existe em ComboBox. [Resolvido] |
 |
|
Olá pessoal.
O código é simples mais estou batendo cabeça aqui.
Preciso saber se já existe o item no combobox antes de adicionar, se tiver o item não adiciona.
Estou tentando esse código mais está dando erro de indice.
Alguém pode me ajudar a resolver isso?
Código:
| Código: |
var I: Integer;
begin
I:= 1;
Dados.QryDeletados.Open;
while not Dados.QryDeletados.Eof do begin
if ComboBox1.Items.IndexOf(Dados.QryDeletados.FieldByName('TELA').AsString) = -1 then
ComboBox1.Items[I]:= Dados.QryDeletados.FieldByName('TELA').AsString;
Dados.QryDeletados.Next;
Inc(I);
end;
end;
|
Desde já obrigado a todos pela colaboração.
Editado pela última vez por marcosbaixista em Ter Set 24, 2013 6:41 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Ter Set 24, 2013 4:26 pm Assunto: |
|
|
Boa tarde,
Experimente dessa forma:
| Código: | begin
Dados.QryDeletados.Open;
while not Dados.QryDeletados.Eof do begin
if ComboBox1.Items.IndexOf(Dados.QryDeletados.FieldByName('TELA').AsString) = -1 then
ComboBox1.Items.Add(Dados.QryDeletados.FieldByName('TELA').AsString);
Dados.QryDeletados.Next;
end;
end; |
Espero que ajude.
Editado pela última vez por imex em Dom Fev 25, 2024 3:19 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
marcosbaixista
Profissional
Registrado: Quinta-Feira, 18 de Março de 2010
Mensagens: 594
Localização: Maringá/PR
|
| Enviada: Ter Set 24, 2013 6:40 pm Assunto: |
|
|
Olá Imex.
Obrigado pela ajuda, funcionou perfeitamente. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
