Цикл по ListBox - Общие вопросы Delphi

Alex711 · 31.10.2021, 20:59

Здравствуйте, на форме три 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. Не могу понять в чем причина. Подскажите пожалуйста.

digitalis · 01.11.2021, 09:47

Дык пожалуй, зависит от того, что предварительно записано в эти Листбоксы ? Чудес не бывает.
~~Пройти в отладочном режиме~~ Хотя какой тут отладочный режим - на ноутах может отсутствовать среда разработки.
Я бы сделал предварительный контрольный вывод содержимого перых двух Листбоксов во вспомогательный файл для анализа. Может, это что-то и прояснило бы.

northener · 02.11.2021, 01:55

Эх не поняли вы агент 007_11 моего тонкого намёка на киберфоруме, что не в типах компьютеров дело. А в том где (на каком объекте) они работают. И в том как, по каким параметрам ваша программа формирует списки и определяет критерий "похожести" строк.
Кстати зря вы не привели тут свой код. На киберфоруме вы же его опубликовали. Тут тоже есть спецы, имеющие сказать что-то доброе, мудрое и вечное, что возможно поможет вам понять проблему и решить её.

31.10.2021, 20:59	#1
Alex711 Пользователь Регистрация: 21.09.2018 Сообщений: 99	Цикл по 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. Не могу понять в чем причина. Подскажите пожалуйста.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Цикл по ListBox	Alex711	Общие вопросы Delphi	3	03.10.2021 11:26
цикл если listbox пустой то	alman12	Общие вопросы Delphi	25	12.06.2014 18:27
Цвет строки ListBox через цикл в зависимости от параметра	waka2ebawer	Общие вопросы Delphi	2	11.07.2013 23:28
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until)	Mr.User	Помощь студентам	9	23.11.2007 01:34

01.11.2021, 09:47	#2
digitalis Старожил Регистрация: 04.02.2011 Сообщений: 4,705	Дык пожалуй, зависит от того, что предварительно записано в эти Листбоксы ? Чудес не бывает. ~~Пройти в отладочном режиме~~ Хотя какой тут отладочный режим - на ноутах может отсутствовать среда разработки. Я бы сделал предварительный контрольный вывод содержимого перых двух Листбоксов во вспомогательный файл для анализа. Может, это что-то и прояснило бы.

02.11.2021, 01:55	#3
northener ПШП Участник клуба Регистрация: 15.07.2013 Сообщений: 1,926	Эх не поняли вы агент 007_11 моего тонкого намёка на киберфоруме, что не в типах компьютеров дело. А в том где (на каком объекте) они работают. И в том как, по каким параметрам ваша программа формирует списки и определяет критерий "похожести" строк. Кстати зря вы не привели тут свой код. На киберфоруме вы же его опубликовали. Тут тоже есть спецы, имеющие сказать что-то доброе, мудрое и вечное, что возможно поможет вам понять проблему и решить её.