Delphi-Help

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

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

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


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

function LoCaseRus( ch : Char ) : Char;
asm
  CMP          AL,'A'
  JB              @@exit
  CMP          AL,'Z'
  JA              @@Rus
  ADD          AL,'a' - 'A'
  RET
@@Rus:
  CMP          AL,'Я'
  JA              @@Exit
  CMP          AL,'А'
  JB              @@yo
  ADD          AL,'я' - 'Я'
  RET
@@yo:
  CMP          AL,'?'
  JNE            @@exit
  MOV          AL,'?'
@@exit:
end;
Прочитано 5127 раз

Авторизация



Счетчики