перенести строки из Listbox2 в Listbox1

[DIgorevich]

Что-то у меня код:

list.Items.Assign(list1.Items);

вываливается с ошибкой:

EStingListError with message 'List index out of bounds (0)

Процесс происходит следующим образом. Запускается процедура, которая берет по порядку каждую строку list преобразует ее в нужный формат и записывает в list1. По окончании, я пытаюсь перенести получившиеся данные в исходный list, но выдает ошибку... в чем дело не пойму. Помогите, пожалуйста, кто чем может

[Stilet]

list.Items:=list1.Items;
не?...

[DIgorevich]

Сообщение от Stilet

list.Items:=list1.Items;
не?...

не... те же яйца...
Маленькая ремарка. Вставил в процедуру обработки строк Вывод сообщения с получившимся значением:

      ShowMessage(list1.Items[i]);

Всё показывает, как надо, т.е. list1 заполняется.
Но при попытке перенести - ошибка.
Так вот, для эксперимента, взял третий list с данными и код:

  list.Items.Assign(list2.Items);

работает...

А мне надо, чтобы только два list'a было... третий ну нафиг не нужен. будут идеи?

[Stilet]

Тогда вопрос ребром:
Ты пишешь:

которая берет по порядку каждую строку list преобразует ее в нужный формат и записывает в list1

А почему не записывать сразу в list на то место откуда взято?
покажи как ты процедуру свою реализовал.

[DIgorevich]

не записываю сразу в list, потому как список длинный и мерцание будет происходить...

var
  n,i:Integer;
  text:string;
Begin
  for i:=0 to list.Items.Count-1 do
    begin
      text:=list.Items[i];
        n:=Pos('|', text); // здесь ищем разделитель - '|'
        If n>0 Then
          Begin
            text:=Copy(text, 1, n-1);
          End;
      list1.Items[i] :=text+'|'+dlit(list.Items[i]);
      ShowMessage(list1.Items[i]);//здесь показывает всё правильно
    end;
   list.Items.Assign(list1.Items);

dlit - процедура высчитывания длины файла указанного в списке.

[Stilet]

и мерцание будет происходить...

Дружище, BeginUpdate и EndUpdate еще никто не отменял

[DIgorevich]

Сообщение от Stilet

Дружище, BeginUpdate и EndUpdate еще никто не отменял

Спасибо, конечно
Да фиг с ним с мерцанием... пока идет обработка строк, проге работать надо. да и не в этом суть.
Но Assign все равно не пашет. Ради интереса сделал так вместо него:

      list1.Items.SaveToFile('1.tt');

   list.Items.LoadFromFile('1.tt');

и всё заработало... мистика какая-то...

[uberchel]

Вот:
list1.Items.Assign(list2.Items);

[DIgorevich]

Сообщение от uberchel

Вот:
list1.Items.Assign(list2.Items);

а я по-вашему не так делал ??

[Stilet]

DIgorevich

Как хочешь конечно, на твоем месте я делал бы это в потоке и к тому же писал изменения в строку:

s :=s+text+'|'+dlit(list.Items[i])+#13#10;

После чего строку эту кидал в ЛистБокс

 list.Items.Text:=s;

кстати. Ты уверен что слово list не зарезервировано уже кем-то?