|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2009, 05:56 | #1 |
Регистрация: 26.05.2009
Сообщений: 4
|
Всем привет! Хочу попросить совета, а может и помощи.
У меня имеется задача в которой требуется заменить в тексте(текст большой) одни символы на другие. Т.е. имеется текст и в нем я заменяю букву 'д' на 'ж'; 'в' на 'д'; 'о' на 'ы', к примеру: "В тот же день, но уже вечером, часу в седьмом, Раскольников подходил к квартире" И в итоге должно получится "д тыт же жень, ны уже дечерым, часу д сежьмым, Раскыльникыд пыжхыдил к кдартире" С помощью каких функций и процедур это можно сделать, а то совсем ничего в голову не лезет??И если можно маленькие примерчики, мне просто так понятнее. Заранее спасибо... P.S. Текст я читаю из файла и потом перемещаю его Memo-поле. Текст является нормализованным т.е., он переведет в верхний регистр( все буквы заглавные) и отсутствуют знаки препинания и спец. символы. Вот код того что есть, до данной проблемы -Текст является нормализованным т.е., он переведет в верхний регистр( все буквы заглавные) и отсутствуют знаки препинания и спец. символы. Код:
Последний раз редактировалось Stilet; 26.05.2009 в 08:28. |
26.05.2009, 08:44 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну сделай массив:
Код:
Код:
I'm learning to live...
|
26.05.2009, 11:25 | #3 |
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
Есть хорошая функцыя StringReplace.. почему бы не использовать ее??
Код:
вроде бы както так..
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
26.05.2009, 11:42 | #4 | |
Регистрация: 26.05.2009
Сообщений: 4
|
Цитата:
т.е. я ее могу вести и 'Ж' 'Д' 'Ы' и 'Д' 'Ы' 'Ж' и 'Ы' 'Ж' 'Д' ,а таких букв 32 штуки (все буквы кроме Ё) - Эту последовательность я перепишу в поле Edit или поле Memo или сразу буду брать из файла -это я смогу сделать. Я не могу придумать сам процесс замены. Конечно можно сделать так: StringReplace(ws, 'Д', 'Ж', [rfReplaseAll]); StringReplace(ws, 'В', 'Д', [rfReplaseAll]); StringReplace(ws, 'О', 'Ы', [rfReplaseAll]); ... StringReplace(ws, 'Р', 'В', [rfReplaseAll]); и таких строчек будет 32 и вместо букв Ж Д Ы .... В сделать 32 поле (Edit .Text) Но это уже будет какое-то извените извращение |
|
26.05.2009, 12:03 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Замена кода программы с Delhi5 на Delhi7 либо замена базы данных с Acessa на MySQL | DorianLeroy | Фриланс | 8 | 18.02.2009 18:52 |
Поиск и замена групп символов данными из edit в memo | treefantom | Общие вопросы Delphi | 5 | 26.10.2008 17:26 |
Замена символов из таблицы | sadpoet | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 02.03.2008 15:33 |
Замена символов | PAVEL315 | Общие вопросы Delphi | 1 | 03.02.2007 21:56 |