需要在 Delphi 中将大写字符更改为小字符

Question

我有这个字符串，我需要将一些字符设为大写，所以我使用该UpCase命令......但是如果我需要从大写字母中生成小字符怎么办？在这种情况下我用什么？

Answer 1

UpCase不知道语言环境，只处理英语的 26 个字母。如果这真的是你所需要的，那么你可以创建这样的等效LoCase函数：

function LoCase(ch: AnsiChar): AnsiChar; overload;
begin
  case ch of
  'A'..'Z':
    Result := AnsiChar(Ord(ch) + Ord('a')-Ord('A'));
  else
    Result := ch;
  end;
end;

function LoCase(ch: WideChar): WideChar; overload;
begin
  case ch of
  'A'..'Z':
    Result := WideChar(Ord(ch) + Ord('a')-Ord('A'));
  else
    Result := ch;
  end;
end;