Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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. Не могу понять в чем причина. Подскажите пожалуйста.
Alex711 вне форума Ответить с цитированием
Старый 01.11.2021, 09:47   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Дык пожалуй, зависит от того, что предварительно записано в эти Листбоксы ? Чудес не бывает.
Пройти в отладочном режиме Хотя какой тут отладочный режим - на ноутах может отсутствовать среда разработки.
Я бы сделал предварительный контрольный вывод содержимого перых двух Листбоксов во вспомогательный файл для анализа. Может, это что-то и прояснило бы.
digitalis вне форума Ответить с цитированием
Старый 02.11.2021, 01:55   #3
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Цикл по 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