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

Главная

Оцените материал

(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;

Прочитано 6550 раз

Опубликовано в Текст и Строки

Delphi-Help