Здравствуйте!
Вот обнаружил интересную штуковину: UpperCase и LowerCase в delphi для кирилицы не работают. Вопрос, почему? Можно ли это обойти и заставить их работать?

P.S. Знаю, что написать свои элементарно, но всё же более интересно заставить работать стандартные и выяснить почему они косят.

-----
моя подпись!

поробуй AnsiLowerCase

-----
[nice coder and reverser]

CharToOem()

-----
http://fbi.cih.ms

function UpCaseRus(ch: Char): Char;
asm
CMP AL,'a'
JB @@exit
CMP AL,'z'
JA @@Rus
SUB AL,'a' - 'A'
RET
@@Rus:
CMP AL,'я'
JA @@Exit
CMP AL,'а'
JB @@yo
SUB AL,'я' - 'Я'
RET
@@yo:
CMP AL,'¸' // эта хрень, типа ё/Ё
JNE @@exit
MOV AL,'¨'
@@exit:
end;

function LoCaseRus( ch : Char ) : Char;
{Перевод символа в нижний регистр для русского алфавита}
asm
CMP AL,'A'
JB @@exit
CMP AL,'Z'
JA @@Rus
ADD AL,'a' - 'A'
RET
@@Rus:
CMP AL,'Я'
JA @@Exit
CMP AL,'А'
JB @@yo
ADD AL,'я' - 'Я'
RET
@@yo:
CMP AL,'¨'
JNE @@exit
MOV AL,'¸'
@@exit:
end;

-----
xOAg8vsg7/Du8fLuIOPl7ejpISEhIDsp

Всем спасибо! AnsiLowerCase - Подошёл.
Isaev
Спасибо за код. Мне не трудно и самому написать, но к сожалению нужно было обойтись стандартными средствами.


Ещё раз всем спасибо!

-----
моя подпись!