ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

list index out of bounds(133) delphi

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Barros10
Novato
Novato


Registrado: Quarta-Feira, 11 de Setembro de 2019
Mensagens: 3

MensagemEnviada: Qua Set 11, 2019 5:22 pm    Assunto: list index out of bounds(133) delphi Responder com Citação

Pessoal, boa noite. Sou novo na programação em delphi é meu primeiro tópico, estou solicitando ajuda dos amigos.
É um seguinte:
Tenho 2 combobox, o 1º combobox1 tem 155 items que é a quantidade de registros que quero inserir na base de dados no campo do ID_01, no 2º combobox2 tenho 133 itmes que será registrado no campo ID_02 simultaneamente, até ai tudo blz, o problema é como faço para repetir alguns items do combobox2 até a quantidade de itens do combobox1 que é 155. Pois quando rodo programa ele só grava até 133 Sad Laughing
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qua Set 11, 2019 5:41 pm    Assunto: Responder com Citação

Boa tarde,

Você está utilizando a mesma variável como índice dos itens dos 2 ComboBox?
Acho que uma alternativa seria utilizar uma variável separada como índice para cada ComboBox. Nesse caso a variável do ComboBox com menos itens teria que ser "incrementada" manualmente, e quando ultrapassar o último item (igual a Itens.Count) poderia ser zerada para voltar ao primeiro item.

Espero que ajude


Editado pela última vez por imex em Dom Out 01, 2023 4:28 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Barros10
Novato
Novato


Registrado: Quarta-Feira, 11 de Setembro de 2019
Mensagens: 3

MensagemEnviada: Qua Set 11, 2019 6:32 pm    Assunto: Responder com Citação

como poderia fazer isso, zerar a contagem e voltar ao primeiro item?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qui Set 12, 2019 9:06 am    Assunto: Responder com Citação

Não testei, mas tive uma outra idéia para voltar ao primeiro item. Acho que pode ser utilizado o resto da divisão para obter o índice do ComboBox com menos itens.
Segue exemplo considerando que o ComboBox2 tem menos itens:

Código:
var
  i: integer;
  h: integer;
begin
  for i := 0 to ComboBox1.Items.Count - 1 do
    begin
      h := i mod ComboBox2.Items.Count;
      ShowMessage(ComboBox1.Items[i] + ' - ' + ComboBox2.Items[h]);
    end;


Espero que ajude
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Barros10
Novato
Novato


Registrado: Quarta-Feira, 11 de Setembro de 2019
Mensagens: 3

MensagemEnviada: Qui Set 12, 2019 4:55 pm    Assunto: (RESOLVIDO) Responder com Citação

meu amigo funcionou, muito obrigado pela ajuda Very Happy Very Happy
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB