Работа с текстом

← →
Westbronx (2006-04-24 08:18) [0]

Привет мастера. Такая проблема, писал огромную программу, закончил ~90%. И запнулся. В tmemo, имеется текст, нужно считать первое слово, занести в переменную, произвести действие в if ... then, и далее до конца текста, тоже самое. Немогли бы помочь с кодом? Спасибо.

← →
MBo © (2006-04-24 08:35) [1]

Логика может быть такой:
Берем очередную строку из Memo.Lines
Разделяем ее на куски с помощью вспомогательного TStringList и его метода CommaText (или DelimitedText).
Если полученные куски удовлетворяют твоему определению "слова", то
дальше все ясно
Иначе: идешь по строке в цикле. Когда очередное "слово", согласно выбранным критериям, закончилось, копируешь с его начала до текущей позиции и обрабатываешь.

← →
balepa © (2006-04-24 08:37) [2]

Намек разделители слов у тебя наверное: пробел, зпт., тчк., ! и т.д.

← →
Gydvin © (2006-04-24 09:26) [3]

А не проверку ли орфограффии хочет сделалать автор, тады есть готовые компоненты.

← →
WestBronx (2006-04-24 22:13) [4]

Gydvin © (24.04.06 09:26) [3]
Принцып преблезительно такой, но - нет =(

MBo © (24.04.06 08:35) [1]
Хм, интересно, спасибо. А кодом мог бы помочь?

← →
balepa © (2006-04-25 06:30) [5]

> WestBronx (24.04.06 22:13) [4]

А F1 на клавиатуре не присутствует ?

← →
Anatoly Podgoretsky © (2006-04-25 08:51) [6]

писал огромную программу, закончил ~90%.
Не верю (с) Станиславский

← →
WestBronx (2006-04-27 03:38) [7]

Anatoly Podgoretsky © (25.04.06 08:51) [6]
Это ваше право

balepa © (25.04.06 06:30) [5]
MBo © (24.04.06 08:35) [1]

Пробовал - не получается =(

>
> Пробовал - не получается =(

Это плохо.

← →
WestBronx (2006-04-28 02:50) [9]

Работа с текстом Найти похожие ветки