Скачать: CL | DM;

Как мне преобразовать переменную типа 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 устроен именно так (там же можете взять и асмовскую версию).

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c