powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кодировка при нажатии клавиши
6 сообщений из 6, страница 1 из 1
Кодировка при нажатии клавиши
    #32104260
Rome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Начал пробовать сам работать с Delphi.
Решил наваять простой редактор(наверное большинство через это проходит) с перекодировкой при редактировании win<->dos.
Ситуация такая.
Жмем клавишу. Если в меню выбрана кодировка dos то символ должен вводиться в кодировке dos и наоборот.
Облазил кучу форумов, не нашел такого.
У меня есть такое подозрение, что надо использовать функцию OemToAnsi и наоборот. Но не понятно как енто сделать.
...
Рейтинг: 0 / 0
Кодировка при нажатии клавиши
    #32104262
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Представляешь какой будет у тебя текст? вернее как пользователь его будет набирать? у тебя выставлено что кодировка доса, ты нажимаешь например на клавишу "в" автомат в этот момент перекодирует ее и записывает вместо "в" например "т". И пользователь видит в ответ на нажатие совершенно непредсказуемый для него результат... мне кажется это не правильно. Перекодировать надо в другой момент. Скажем по нажатию на кнопку или при сохранении интересоваться кодировкой в которой следует сохранить
...
Рейтинг: 0 / 0
Кодировка при нажатии клавиши
    #32104263
Rome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
наверное я неправильно изяснился.
извиняюсь.
Ситуёвина такая.
Грузим в редактор файл в dos-кодировке. Соответственно в менюшке ставим закорючку, что ентот файл открыт DOS-режиме.
Теперь осталось вводить буковки в такой же кодировке. А как это сделать ?
Соответственно, если грузим файлу в windows-кодировке
...
Рейтинг: 0 / 0
Кодировка при нажатии клавиши
    #32104268
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тогда можно следующий алгоритм...
1. грузим
2. ставим закорючку и перекодируем загруженное в win1251
3. редктируем
4. перекодируем в нужное
5. сохраняем
...
Рейтинг: 0 / 0
Кодировка при нажатии клавиши
    #32104271
Фотография Jozo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пришу на память так что могу ошибиться а перекодировать можно так:
енто всего лиш один из вариантов

Function AnsiToOemN(In_str:String):String;
Var
Str,Str1:array[0..2000] of Char;
begin
AnsiToOem(StrPCopy(str,In_str),str1);
Result:=strpas(str1);
end;

Function OemToAnsiN(S:String):String;
Var
Str,Str1:array[0..2000] of Char;
begin
OemToAnsi(StrPCopy(Str,s),Str1);
Result:=StrPas(Str1);
end;
...
Рейтинг: 0 / 0
Кодировка при нажатии клавиши
    #32104844
Rome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем большое спасибо за помощь.
Jozo, нашел пример похожий на твой в RXLib, стянул и присобачил у себя.
Заработало. :-)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Кодировка при нажатии клавиши
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]