|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.04.2017, 03:14 | #1 |
Регистрация: 06.04.2017
Сообщений: 3
|
Pos не находит символ в Listbox-е
Здравствуйте, товарищи! Полторы суток не могу сделать процедуру. Весь интернет перерыл. Дошел до того, что пишу в форум (Первый раз в жизни. Поздравьте с дебютом.)
Задача: Для каждой строки с символом из листбокса1(загружается из файла(.txt)) найти строку с этим же символом в листбоксе3 (тоже загружается из файла(.txt), но другого) и в следующих 10-ти строках в этом файле (состоящих из нескольких чисел) найти число переменной (значение задаю ручками пока), чтобы потом вынести индекс этой строки и добавить его в листбокс2 новой строкой. Компилирую, ввожу переменную, кликаю, а он мне выводит только первые 2 результата, будто пошел на третий цикл и не нашел символ из третьей строки ЛистБокса1 и далее. Я проверил, все символы документов на английском. Может, с кодировкой что-то не понял? При этом из листбокса1 он видит все символы, а в Листбокс3 не находит их. Код:
Символы в листбоксе1 (каждый в новой строке): A,B,C,E,F,G,H,I,L,M,N,O,Q 1,Q 2,Q 3,Q 4. ЛистБокс3 содержит примерно следующее: { A 0 1 2 3 4 5 6 [...] 17 18 19 20 B 0 1 2 3 [...] 13 C 0 1 2 3 4 5 6 [...] 23 24 25 26 E 0 1 2 3 4 [...] 25 26 //И так далее } Последний раз редактировалось Alex11223; 10.04.2017 в 07:30. |
10.04.2017, 07:52 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
10.04.2017, 16:56 | #3 |
Регистрация: 06.04.2017
Сообщений: 3
|
Вот, блин! Спасибо, работает! Всю ночь сидел. В упор не видел. Надо чаще спать.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
while pos | nibufep | Общие вопросы Delphi | 2 | 22.07.2016 23:47 |
используя процедуру keypress и фунцию listbox.при нажатии на listbox менялась ее высота | Алекс38 | Общие вопросы Delphi | 1 | 19.09.2012 19:36 |
Assembler!!! Заменить на символ ‘!’ каждый 3тий символ в строке. | Leon9313 | Помощь студентам | 0 | 24.04.2012 13:02 |
if not Pos | Shouldercannon | Общие вопросы Delphi | 9 | 01.02.2012 15:48 |
как добавить в listbox файлы(пишу с помощью bassplayer)(Listbox+opendialog=play) | blackstersl | Общие вопросы Delphi | 11 | 09.06.2010 13:23 |