Замена вункции Uppercase

← →
silvestr (2005-06-13 11:28) [0]

Она переводит в верхний регистр только латиницу :( а как быть с керилицей ?

← →
Anatoly Podgoretsky © (2005-06-13 11:31) [1]

F1 + Uppercase

← →
Antonn © (2005-06-13 11:40) [2]

silvestr (13.06.05 11:28)
function UpCaseRus(ch: Char): Char;
asm
@@Rus:
CMP AL,"я"
JA @@Exit
CMP AL,"а"
JB @@yo
SUB AL,"я" - "Я"
RET
@@yo:
CMP AL,"ё"
JNE @@exit
MOV AL,"Ё"
@@exit:
end;

← →
ferr © (2005-06-13 11:40) [3]

ShowMessage(AnsiUpperCase("Всё нормально"));

← →
MakedoneZ © (2005-06-13 16:01) [4]

> F1 + Uppercase

Можно было и помочь.

← →
GuAV © (2005-06-13 16:28) [5]

Antonn © (13.06.05 11:40) [2]
CMP AL,"я"
JA @@Exit

Это когда выполнится ?

MakedoneZ © (13.06.05 16:01) [4]
Вот это и надо было смотреть в справке и там прямо указано что использовать взамен. Или ты предлагаешь сюда скопировать справку7

>CMP AL,"я"
> JA @@Exit

:))

Замена вункции Uppercase Найти похожие ветки