|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.09.2008, 22:48 | #1 |
Пользователь
Регистрация: 13.01.2008
Сообщений: 34
|
Помогите усовершенствовать код
Мне нужно, чтобы вот такая запись:
СЛОВО Значение была преведена к виду: <m> <l>ru</l> <ms>СЛОВО</ms> <ms>слово</ms> <t> Значение </t> </m> Но в моём коде Значение может быть длиной только в одну строку, мне нужно чтоб оно было многострочным. Не нашёл вариантов решения данной задачи. Пожалуйста помогите. Заранее спасибо. Код:
Последний раз редактировалось xPAL; 18.09.2008 в 22:51. |
19.09.2008, 14:52 | #2 |
***
Участник клуба
Регистрация: 30.07.2007
Сообщений: 1,162
|
Код:
Последний раз редактировалось dr.Chas; 19.09.2008 в 14:54. |
19.09.2008, 15:56 | #3 |
Пользователь
Регистрация: 13.01.2008
Сообщений: 34
|
Проблема в том что в memo1 может быть запись типа этой:
СЛОВО Значение ДРУГОЕ СЛОВО Другое значение при answer:=memo1.text; получается Код:
|
19.09.2008, 23:41 | #5 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Тут все просто, если после строки в верхнем регистре не идет строка в нижнем, запись не сохранять. Если же идет в нижнем - сохранять, и так до конца.
Пустая строка как разделитель не нужна.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог Последний раз редактировалось mutabor; 19.09.2008 в 23:45. |
19.09.2008, 23:54 | #6 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Совем непонятно. Разбей свою строку на подстроки, где :
первая строка - СЛОВО (в верхнем регистре) вторая строка - слово (в нижнем регистре) третья строка - все остальное Если COUNT строк < трёх минус один - не сохранять. |
20.09.2008, 00:05 | #7 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
А вообще да, так лучше не делать: xxx :=memo1.text;
Гораздо удобнее работать с массивом строк - Lines[], как это делать, я написал выше. Memo.Text это строка, к-рая содержит в себе все строки Мемо, разделенные символами #13#10, для данной задачи парсить такую строку очень неудобно.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог Последний раз редактировалось mutabor; 20.09.2008 в 00:09. |