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

Материал из DRKB

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

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;


Source: http://delphiworld.narod.ru
ID: 00864