Как мне преобразовать переменную типа Char в верхний или нижний

← →
MainKaif (2003-05-17 00:19) [0]

Как мне преобразовать переменную типа Char в верхний или нижний регистр. Функция UpCase почемуто работает только с латинскими буквами.

← →
Johnmen (2003-05-17 00:33) [1]

AnsiUpperCase

← →
Fantasist. (2003-05-17 00:52) [2]

Это уже проходили:

function UpCase1( ch : Char ) : Char;
begin
Result := ch;
case Result of
"a".."z": Dec(Result, Ord("a") - Ord("A"));
"А".."я": Dec(Result, Ord("а") - Ord("А"));
end;
end;

Правда, говорят, существуют раскладки, где это не сработает, но дельфовый UpCase устроен именно так (там же можете взять и асмовскую версию).

Как мне преобразовать переменную типа Char в верхний или нижний Найти похожие ветки