Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];
ВнизРабота с текстом Найти похожие ветки
← →
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]
Пробовал - не получается =(
← →
Джо © (2006-04-27 05:17) [8]>
> Пробовал - не получается =(
Это плохо.
← →
WestBronx (2006-04-28 02:50) [9]Джо © (27.04.06 05:17) [8]
Уху, не хорошо.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c