Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c