Delphi-Help

Главная Статьи Текст и Строки Перевод символа в верхний регистр для русского алфавита

Перевод символа в верхний регистр для русского алфавита

Оцените материал
(0 голосов)


Перевод символа в верхний регистр для русского алфавита

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;
Прочитано 4574 раз

Авторизация



Счетчики