|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.03.2010, 22:08 | #1 |
Форумчанин
Регистрация: 08.10.2009
Сообщений: 112
|
Выделение текста по количеству повторов
Название тяжкое, но попытаюсь объяснить:
Есть s := '[яблоко]+[груша]+[яйцо]' Я хочу написать функцию, которая выделила бы мне текст в квадратных скобках по их порядку, т.е.: Getstr(s,'[',']',2) = 'груша'; Где первая переменная - общая строка, вторая - символ перед выделяемой областью, третья - соответственно - символ после выделяемой области, и последняя переменная - это номер скобок. Если номер выбран 2, значит результат должен быть из вторых скобок. Сам пробовал подумать, но подкипали извилины. Помогите, буду благодарен.
procedure life; for years := 1 to 11 do gotoschool(normal); woman := TMan.add; childrens.add(TMans); problems.add(fuck); woman.destroy; END.
Последний раз редактировалось saggy; 09.03.2010 в 22:11. |
09.03.2010, 22:11 | #2 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
либо удаляйте уже использованный кусок текста либо PosEx в помощь
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
11.03.2010, 10:33 | #3 |
Новичок
Джуниор
Регистрация: 08.10.2009
Сообщений: 1
|
Я не профессионал в программировании, но сделал бы так:
Код:
Последний раз редактировалось Mikl69; 11.03.2010 в 10:36. |
11.03.2010, 12:26 | #4 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Ну зачем так? Пепел Феникса уже показал куда копать
Код:
|
12.03.2010, 14:23 | #5 |
Форумчанин
Регистрация: 08.10.2009
Сообщений: 112
|
Спасибо вам за коды!!!
а то мне обычно пишут: "ты чайник", "у тебя ошибки в словах", "ты пишешь с маленькой буквы", "всё неправильно" и на этом заканчивается. спасибо!! Это пишут на других форумах, не так ли ? Модератор.
procedure life; for years := 1 to 11 do gotoschool(normal); woman := TMan.add; childrens.add(TMans); problems.add(fuck); woman.destroy; END.
Последний раз редактировалось mihali4; 12.03.2010 в 15:15. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Убрать выделение текста | Михаил Юрьевич | Общие вопросы Delphi | 3 | 21.12.2009 19:56 |
Выделение текста | Sensizu | Компоненты Delphi | 0 | 01.10.2009 19:09 |
Выделение текста | Rebel123 | Общие вопросы Delphi | 11 | 31.08.2009 17:12 |
Выделение текста | Kib | Общие вопросы Delphi | 3 | 07.07.2009 12:12 |
Выделение текста | max38934 | JavaScript, Ajax | 5 | 26.05.2009 14:16 |