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

01.01.2007

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;

https://delphiworld.narod.ru/

DelphiWorld 6.0