字符串首字母大写

Question

pascal 中是否有语法（如 Uppercase(s)）将字符串的第一个字母转换为大写。仅第一个字母。

Answer 1

是的;您可以使用 UpCase 函数（希望大多数 Pascal 变体都有它）。下面显示了如何使用它来大写给定 S 字符串中的第一个字符。

function UpCaseFirstChar(const S: string): string;
begin
  Result := S;

  if Length(Result) > 0 then
    Result[1] := UpCase(Result[1]);
end;