Mega Code Archive

 

Categories / Delphi / Functions

 

LoCase function

Title: LoCase function Question: How to convert an upper char to a lower char ? Answer: ... uses System; ... function LoCase(AChr: Char): Char; begin if AChr in ['A'..'Z'] then Result := Chr(Ord(AChr) + (Ord('a') - Ord('A'))) else Result := AChr; end; or if you prefer an ASM version ------------------------------- function LoCase(AChr: Char): Char; asm CMP AL, 'A' JB @@exit CMP AL, 'Z' JA @@exit ADD AL, 'a' - 'A' @@exit: end;