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 

adicionando item em listbox - intraweb

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


Registrado: Quarta-Feira, 1 de Fevereiro de 2017
Mensagens: 102

MensagemEnviada: Qui Ago 30, 2018 2:06 pm    Assunto: adicionando item em listbox - intraweb Responder com Citação

Boa tarde!! Very Happy

tenho uma aplicação em intraweb para fazer a ordenação de itens. O primeiro listbox possui uma lista de itens, e que vão sendo selecionados na ordem desejada, e através do clique de um botão eles vão passando para o segundo listbox na ordem desejada. Sempre ao adicionar um novo item no novo listbox, coloco o número da sua posição da ordenação antes do nome do item. No entanto a partir do 10º item, o conteúdo não esta sendo adicionado ao final do listbox, e sim após o primeiro item, de maneira que minha ordenação fica como mostrada abaixo:
1 - item a
10 - item g
11 - item f
2 - item b
3 - item u
4 - item o
5 - item s
6 - item l
7 - item q
8 - item y
9 - item c
quando na verdade deveria ficar assim:
1 - item a
2 - item b
3 - item u
4 - item o
5 - item s
6 - item l
7 - item q
8 - item y
9 - item c
10 - item g
11 - item f

o código utilizado foi:
Código:
item := lstbxCriteriaListHE.Items[c103];
        lstbxCurrentOrderHE.Items.Add(IntToStr(c102) + '.' + item);
        lstbxCriteriaListHE.Items[c103] := '';


a listbox já preenchida é a lstbxCriteriaListHE
a listbox que receba a nova ordenação é a lstbxCurrentOrderHE
e a variável c102 salva o numero de itens que ja foram selecionados

Desde já, agradeço pela ajuda Smile
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 Ago 30, 2018 2:36 pm    Assunto: Responder com Citação

Boa tarde,

Pelo que entendi os itens estão ficando em ordem alfabética, então acho que uma alternativa seria formatar o número da posição com pelo menos 2 dígitos, complementando com zeros a esquerda quando necessário.

Código:
lstbxCurrentOrderHE.Items.Add(Format('%2.2d.%s', [c102, item]));


Espero que ajude

_________________
Assinatura: https://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos-residencial-casa
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