Delphi5 - Listbox Com Multiseleção

[Guest ivan donavan]

Estou tentando, atravéz de um botão bitbtn, após selecionar o quinto e o oitavo itens de uma listbox, envia-los para uma segunda listbox, entretanto o compilador sempre retorna um erro não completando a operação(list out of bounds).

Abaixo segue o código do botão, a opção multiselect está ativada(true), o que está errado nesse código ?

procedure TDDiversos2.BitBtn1Click(Sender: TObject);

var i,j:Integer;

begin

for i := 0 to (ListBox1.Items.Count - 1) do

begin

for j := 0 to (ListBox1.Items.Count - 1) do

begin

if ListBox1.Selected[j] then // identifica o item que foi selecionado

begin

ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

lblqtd.Caption:=IntToStr(ListBox1.Items.count); // carrega em um label o numero de itens da listbox

lblqtd2.Caption:=IntToStr(ListBox2.Items.count);

end;

end;

end;

Muito Obrigado.

[Graymalkin]

O problema é que você retira um item da listbox e a quantidade de itens passa a ser outra. Se você tem 10 itens na listbox, quando você tira o primeiro (para jogar na segunda listbox) esta passa a ter apenas 9 itens agora, todavia o for vai continuar com a contagem do início, ou seja, de 0 até 9 (os dez itens iniciais), quando agora deveria ser de 0 até 8 (os nove itens atuais). Sacou?

Abraços,

Graymalkin