个字符

Created: November-22, 2018

Version >= 2009

 placeholderCopyuses
  Character;

var
  C1, C2: Char;
begin
  C1 := 'F';
  C2 := ToLower(C1); // Convert the char to lower-case
  C1 := ToUpper(C2); // Convert the char to upper-case

如果版本是 XE2 或更高版本，uses 子句应该是 System.Character。