|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.03.2008, 13:04 | #1 |
Форумчанин
Регистрация: 26.11.2007
Сообщений: 235
|
Помогите исправить ошибку пожал-та. Что то вроде транслитератора.
Здравствуйте, у меня проблема возникла с кодом ,если кто может помогите или подскажите как мне сделать. Мне надо в мемо1 писать текст на юникоде азербайджанскими буквами (их аскии коды я в тесте кода привел) и чтоб при нажатии на бутон в мемо2 было соответсвие с русскими буквами. (для ввода азерб-их букв под юникод в дельфи я использую Тнт-юникод компоненты, это думаю не имеет существенного влияния). Код вроде верный, да вот почему то не срабатывает
Код:
|
04.03.2008, 13:32 | #2 | |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Цитата:
Для начала нужно посмотреть, а что в MainForm.memo1.Text; Можно, например, забить один азерб. символ и посмотреть чему = MainForm.memo1.Text. А код, который приведен, транслирует латинские символы в русские. |
|
04.03.2008, 13:42 | #3 |
Форумчанин
Регистрация: 26.11.2007
Сообщений: 235
|
alexBlack, извиняюсь если я не правильно выразился.
Дело в том, что я сам записываю в мемо1 на азерб-ом текст ,затем нажимаю на бутон и в мемо2 должен отобразится текст русскими буквами, который я сопостваил в Case посимвольно. Вот это не получается, я ваще не могу вникнуть, так как нуль реакции при нажатии. А проверку для 1-го символа я делал! срабатывает! Точнее не так срабатывает. Я уже в самом оклике бутона пишу первод кода для 1-го символа и он мне его русский вариант пишет, например это он нормально выводит => Код:
Я думаю что то с процедурой моей не так (( Последний раз редактировалось Gauss; 04.03.2008 в 13:53. |
04.03.2008, 13:52 | #4 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Нуль в смысле в memo2 вообще ничего непоявляется ?
тогда в sr пропущено else sr := s в memo1 текст на азерб. как ? меняя charSet шрифта ? Тогда он просто отображается в другом виде, а код символа как был так и есть. Попробуй пройти в пошаговом режиме процедуру sr. Попадаешь в нее вообще ? Какой код передается в параметре ? Если он в case ? |
04.03.2008, 14:00 | #5 | |
Форумчанин
Регистрация: 26.11.2007
Сообщений: 235
|
Цитата:
В мемо1 я пишу текст на азерб-ом, просто меняю раскладку клавиатуры на азерб-ий и всё. А обычный мемо (дельфийский) не поддерживает юникод для азерб-их букв, я использую Тнт-компоненты (TntMemo1,Tntmemo2,...) Я ТОЖЕ ХОЧУ пошагово проверить, вот это меня и бесит что не получается этого сделать из-за Тнт-компонентов, как нжимаю Ф7 сразу идет проверка кодов самих Тнт-компонетнов которые у меня на форме. открываются их модули, может можно их как то миновать я незнаю. |
|
04.03.2008, 14:01 | #6 | ||
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Цитата:
Поставиь прерывание на temp := MainForm.memo1.Text; и посмотри ORD(temp[1]) Цитата:
а else все-таки пропущено. Если поставишь текст появится Последний раз редактировалось alexBlack; 04.03.2008 в 14:05. |
||
04.03.2008, 14:08 | #7 | |
Форумчанин
Регистрация: 26.11.2007
Сообщений: 235
|
Цитата:
А else где мне надо поставить? |
|
04.03.2008, 14:10 | #8 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
|
04.03.2008, 14:14 | #9 |
Форумчанин
Регистрация: 26.11.2007
Сообщений: 235
|
Else потсавил в функции sr, текст появился после нажатия на бутон, только появились не русские буквы а английские символы.
|
04.03.2008, 14:18 | #10 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
то есть коды в строке memo1 не входят в указанный в case диапазон.
А что с пошаговым прохождением ? какие коды передаются в sr ? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 04.07.2008 12:27 |
Помогите исправить ошибку в задаче | VANOLORD | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 19.05.2008 22:16 |
Помогите исправить ошибку в коде... | prizrak1390 | Общие вопросы Delphi | 4 | 26.04.2008 13:19 |
Помогите исправить ошибку | Булат | Общие вопросы Delphi | 3 | 25.04.2008 10:01 |
помогите исправить ошибку. | alen666 | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 08.03.2008 16:43 |