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

Previous  Top  Next

    
 

 

Code:

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;

©Drkb::00863

http://delphiworld.narod.ru/

DelphiWorld 6.0