Percorrer todo os Itens do ListBox?

[Valdiney F. Lima 0]

Como percorrer todo o conteudo de um ListBox?

 

Tentei assim:

 

vari : integer;beginfor i:=0 to ListBox1.Items.Count dobegin  ShowMessage( ListBox1.Items.Strings[i] );end;end;

 

O erro ai em cima acontece assim.

 

Suponhamos que eu adicionei 5 itens dentro do ListBox e depois executei o script acima. FUNCIONA!

 

Mas se eu adicionar 5 itens e apagar o item 3... Quando eu executar o FOR, ele vai pesquisar pelo indices do ListBox, quando chegar onde tinha o terceiro item, vai dar erro pois o indice nao vai bater com a variavel...

 

 

Como eu resolvo isso?

[Vinicius Callegaro 0]

var  i : integer;begin  for i:=0 to ListBox1.Items.Count-1 do	ShowMessage( ListBox1.Items.Strings[i] );end;

[Valdiney F. Lima 0]

var  i : integer;begin  for i:=0 to ListBox1.Items.Count-1 do	ShowMessage( ListBox1.Items.Strings[i] );end;

Valeu Vinicius...abração!

[Vinicius Callegaro 0]

Estamos aí http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif