ListBox,работа с двумя списками.

[spectrum988]

Помогите пожалуйста разобраться.Что в коде не то:

var i,n:integer;
begin
n:=ListBox1.Items.Count;
for i:=0 to n do
if ListBox1.Selected[i] then
begin
ListBox2.Items.Add(ListBox1.Items.Strings[i]);
ListBox1.Items.Delete(ListBox1.ItemIndex);
n:=n-1;
end;
Edit1.Text:=IntToStr(ListBox1.Items.Count);
Edit2.Text:= IntToStr(ListBox2.Items.Count);
end;

Код должен выполнять перемещение выделенных строк (1 или более) в другой ListBox

[ReportCube]

Так в чём проблема? Выход за границу индекса? Так и должно быть, после удаления общее количество данных изменяется. Измените цикл for i := n downto 0 do

[spectrum988]

Изменил цикл на предложенный вами вариант,таже ошибка.

[eval]

так бывает, не расстраивайтесь

[BDA]

for i := ListBox1.Items.Count - 1 downto 0 do
  if ListBox1.Selected[i] then
  begin
    ListBox2.Items.Add(ListBox1.Items.Strings[i]);
    ListBox1.Items.Delete(i);
  end;

[spectrum988]

BDA большое спасибо,все работает.Я знал о том,что cчет строк в ListBox начинается с 0-я,но чуть ниже я проводил подсчет строк по каждому ListBox ,и у меня выводило верное количество.