Текущий архив: 2005.07.11;
Скачать: CL | DM;
Вниз
Замена вункции 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
Это когда выполнится ?
← →
Anatoly Podgoretsky © (2005-06-13 16:35) [6]MakedoneZ © (13.06.05 16:01) [4]
Вот это и надо было смотреть в справке и там прямо указано что использовать взамен. Или ты предлагаешь сюда скопировать справку7
← →
Antonn © (2005-06-13 17:22) [7]GuAV © (13.06.05 16:28) [5]
поправте, если не так, буду иметь ввиду (код не мой, но работает)
← →
ferr © (2005-06-13 18:10) [8]
>CMP AL,"я"
> JA @@Exit
:))
Страницы: 1 вся ветка
Текущий архив: 2005.07.11;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.043 c
