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 

Linha em branco no listbox (RESOLVIDO)

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


Registrado: Terça-Feira, 22 de Julho de 2014
Mensagens: 47
MensagemEnviada: Qua Jul 23, 2014 2:54 pm    Assunto: Linha em branco no listbox (RESOLVIDO) Responder com Citação
tem como eu apagar uma linha em branco no listbox ?

Obrigado

Editado pela última vez por guilhermejose em Qua Jul 23, 2014 3:55 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
MensagemEnviada: Qua Jul 23, 2014 3:05 pm    Assunto: Responder com Citação
Percorra os items da listbox e verifique com pos() ou se a linha está vazia, veja exemplo aqui de como utilizar TStringList:

http://www.delphibasics.co.uk/RTL.asp?Name=TStringList


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
natanbh1
Colaborador
Colaborador


Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
MensagemEnviada: Qua Jul 23, 2014 3:30 pm    Assunto: Responder com Citação
Se você souber a linha que está em branco:

Código:

ListBox1.Items.Delete(1); // Substitua o "1" pelo indice da linha a ser excluida



Se não souber o indice da linha, percorra num loop o Lisbox:

Código:

var
 i : Integer;
begin
  for I := 0 to ListBox1.Items.Count - 1 do
  Begin
  try
  if ListBox1.Items.Strings[i].IsEmpty then
  ListBox1.Items.Delete(i);
  Except

  end;
  End;
end;

_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
guilhermejose
Novato
Novato


Registrado: Terça-Feira, 22 de Julho de 2014
Mensagens: 47
MensagemEnviada: Qua Jul 23, 2014 3:54 pm    Assunto: Responder com Citação
beleeeeeza natanbh1, deu ceeerto Very Happy uhuuuul ô/

valeu mesmo cara 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