Показать сообщение отдельно
  #1  
Старый 31.10.2021, 20:59
Alex7 Alex7 вне форума
Новичок
 
Регистрация: 18.09.2018
Сообщения: 62
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Цикл по ListBox

Здравствуйте, на форме три ListBox, нужно сделать так:
первая строка из ListBox1 ищется во всех строках ListBox2 и если находится совпадение, то совпавшая строка из ListBox2 копируется в ListBox3.
И так проверяются все строки из ListBox1.

Пробую так:

Код:
For i:=0 to Lb1.Items.Count-1 do                                                                                                                                                             
    For i1:=0 to Lb2.Items.Count-1 do                                                             
  if pos(Lb1.Items[i],Lb2.Items.Strings[i1])>0 then Lb3.Items.Add(Lb2.Items.Strings[i1]);

Всё работает, но только на компе, запускаю тоже самое на ноутбуке (и не на одном) и почти все строки из ListBox2 оказываются в ListBox3. Не могу понять в чем причина. Подскажите пожалуйста.
Ответить с цитированием