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

Previous  Top  Next

    
 

 

Code:

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;

©Drkb::00864

http://delphiworld.narod.ru/

DelphiWorld 6.0