![]() |
![]() ![]() |
![]() |
klem4 |
![]()
Сообщение
#1
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Есть ф-я
function ANSI_to_OEM(s: Char): Char;
begin
case s of
'А'..'п': dec (s, 64);
'р'..'я': dec (s, 16);
'Ё','Є': inc (s, 72);
'ё','є': inc (s, 57);
'Ї': inc (s, 69);
'ї': inc (s, 54);
end;
ANSI_to_OEM := s;
end;
Следующий вызов: ansi_to_oem('ё')
приводит FPC в ужас. Почему ?! -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
compiler |
![]()
Сообщение
#2
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
приводит FPC в ужас.Почему ?! а в чем ужас ? у меня компилируется и и сполняется..реализовал так function ANSI_to_OEM(s: Char): Char;
begin
case s of
'А'..'п': dec (s, 64);
'р'..'я': dec (s, 16);
'Ё','Є': inc (s, 72);
'ё','є': inc (s, 57);
'Ї': inc (s, 69);
'ї': inc (s, 54);
end;
ANSI_to_OEM := s;
end;
begin
ansi_to_oem('ё');
readln;
read;
end.
-------------------- Спасибо!
Удачи! |
klem4 |
![]()
Сообщение
#3
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
У меня RTE 215 ... А какой символ выдает прога ? 'ё' или что-то другое ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
compiler |
![]()
Сообщение
#4
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
А какой символ выдает прога ? 'ё' или что-то другое ? если написать
writeLn ( ansi_to_oem('ё') );
то будет ё...-------------------- Спасибо!
Удачи! |
hardcase |
![]()
Сообщение
#5
|
![]() code warrior ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 484 Пол: Мужской Реальное имя: Славен Репутация: ![]() ![]() ![]() |
Kelm4, попробуй указать код символа 0xB8, а не 'ё'.
Сообщение отредактировано: hardcase - 3.06.2007 16:03 -------------------- ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
|
compiler |
![]()
Сообщение
#6
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
тут еще что то есть... если переменную(русскую) для функции читаем с клавы , то выводится первый символ названия переменной(!)
![]() ничего не понимаю ![]() -------------------- Спасибо!
Удачи! |
Archon |
![]()
Сообщение
#7
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 618 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата тут еще что то есть... если переменную(русскую) для функции читаем с клавы , то выводится первый символ названия переменной(!) А у меня при любом названии переменной выводится 'с', и некоторые другие буквы глючат, например при нажатии 'к' выводится символ 'Є'... Думаю проблема в функции ![]() PS Но сначала я тоже удивился, так как переменную назвал ch... =) -------------------- Close the World...txeN eht nepO
|
compiler |
![]()
Сообщение
#8
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
да, это я не много погарячился, наверно Archon прав... проблема в функции...
-------------------- Спасибо!
Удачи! |
![]() ![]() |
![]() |
Текстовая версия | 18.07.2025 1:08 |