|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.06.2008, 20:22 | #1 |
Пользователь
Регистрация: 08.11.2007
Сообщений: 91
|
Чтение текста до ...
Как прочитать слова в edit до символа ';'? Помогите пожалста
Не мы такие, жизнь такая...
|
23.06.2008, 20:40 | #2 |
Старожил
Регистрация: 29.01.2008
Сообщений: 2,406
|
Код:
|
23.06.2008, 20:41 | #3 |
Форумчанин
Регистрация: 22.11.2007
Сообщений: 224
|
Код:
Если символ ; не надо включать, то делаешь if p=0 then p:=length(edit1.text) else dec(p); Последний раз редактировалось NikLik; 23.06.2008 в 20:44. |
23.06.2008, 20:41 | #4 |
Форумчанин
Регистрация: 03.01.2008
Сообщений: 102
|
Рассматривать строку как массив символов и проверять каждый символ не равен ли он ';'. Пока не равен инкрементировать счетчик. А потом используем функцию COPY.
Теория без практики мертва и бесплодна, практика без теории невозможна и пагубна.
|
23.06.2008, 20:50 | #5 |
Пользователь
Регистрация: 08.11.2007
Сообщений: 91
|
Ещё один вопрос: у меня есть текст с разделителями:
Семья;Мама;123456 Семья;Папа;654321 Друзья;жека;258741 Девки;Лена;369741 и т.д. Как сделать так, чтобы в комбобоксе создавались группы(первое слово до ';') но не создавались несколько раз одни и те же, и по выбору в комбобоксе отражались имена группы? Очень нужно. Заранее спасибо
Не мы такие, жизнь такая...
|
23.06.2008, 21:15 | #6 |
Форумчанин
Регистрация: 22.11.2007
Сообщений: 224
|
Код:
Код:
Последний раз редактировалось NikLik; 23.06.2008 в 22:20. |
23.06.2008, 21:59 | #7 |
Пользователь
Регистрация: 08.11.2007
Сообщений: 91
|
ещё вопрос: а как прочитать символы между знаками ";"? т.е General;123456789;bullet; нужно 123456789 занести в переменную S
Не мы такие, жизнь такая...
|
23.06.2008, 22:17 | #8 |
Форумчанин
Регистрация: 22.11.2007
Сообщений: 224
|
функция posex(добавь в uses модуль strutils)--тоже самое, только есть возможность указать, с какого символа искать
например так: p:=posex(';',str,1); s:=copy(str,p+1,posex(';',str,p+1)-p-1); выделяет слова "Мама","Папа", "Жека", "Лена" из того примера, что ты дал P.S только что нашел ошибку в том коде, что выше Не combobox.Items.Add(obr(addstr)); , а combobox.Items.Add(addstr); И ты, кстати, не ответил на мой вопрос Последний раз редактировалось NikLik; 23.06.2008 в 22:26. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск и чтение... | Decibel | Общие вопросы Delphi | 12 | 17.06.2008 23:08 |
Чтение | subsonic | Общие вопросы Delphi | 1 | 30.05.2008 08:06 |
Чтение строки... | prizrak1390 | Общие вопросы Delphi | 2 | 28.02.2008 11:18 |
чтение файла | Arteom | Общие вопросы Delphi | 6 | 27.08.2007 18:15 |
чтение файла | vicvtor | Общие вопросы Delphi | 4 | 27.11.2006 12:26 |