![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с текстом [D7, XP]
Westbronx © (2006-04-24 08:18:00)Привет мастера. Такая проблема, писал огромную программу, закончил ~90%. И запнулся. В tmemo, имеется текст, нужно считать первое слово, занести в переменную, произвести действие в if ... then, и далее до конца текста, тоже самое. Немогли бы помочь с кодом? Спасибо.
WestBronx (2006-04-28 02:50:00) [1]Джо © (27.04.06 05:17) [8]
Уху, не хорошо.
Джо (2006-04-27 05:17:00) [2]>
> Пробовал - не получается =(
Это плохо.
WestBronx (2006-04-27 03:38:00) [3]Anatoly Podgoretsky © (25.04.06 08:51) [6]
Это ваше право
balepa © (25.04.06 06:30) [5]
MBo © (24.04.06 08:35) [1]
Пробовал - не получается =(
Anatoly Podgoretsky (2006-04-25 08:51:00) [4]писал огромную программу, закончил ~90%.
Не верю (с) Станиславский
balepa (2006-04-25 06:30:00) [5]
> WestBronx (24.04.06 22:13) [4]
А F1 на клавиатуре не присутствует ?
WestBronx (2006-04-24 22:13:00) [6]Gydvin © (24.04.06 09:26) [3]
Принцып преблезительно такой, но - нет =(
MBo © (24.04.06 08:35) [1]
Хм, интересно, спасибо. А кодом мог бы помочь?
Gydvin (2006-04-24 09:26:00) [7]А не проверку ли орфограффии хочет сделалать автор, тады есть готовые компоненты.
balepa (2006-04-24 08:37:00) [8]Намек разделители слов у тебя наверное: пробел, зпт., тчк., ! и т.д.
MBo (2006-04-24 08:35:00) [9]Логика может быть такой:
Берем очередную строку из Memo.Lines
Разделяем ее на куски с помощью вспомогательного TStringList и его метода CommaText (или DelimitedText).
Если полученные куски удовлетворяют твоему определению "слова", то
дальше все ясно
Иначе: идешь по строке в цикле. Когда очередное "слово", согласно выбранным критериям, закончилось, копируешь с его начала до текущей позиции и обрабатываешь.