Fórum mudar a primeira letra da string para maiúscula #271853

function TDtMdlGcm1.FormataMaiusculas(Texto: String): String;
var
  nX, nZ: Integer;
  Letra: String;
begin
  nZ := Length(Texto); // Obter comprimento apenas um vez para cada frase (Performance)
  Result := ´´;
  For nX := 1 to nZ do
  begin
    if (nX = 1)  or  // Se é a primeira letra
       ((nX > 1) and (Texto[nx-1] in [Chr(32),´ ´,´-´,´.´,´´´´,´"´]))then // ou se o caracter anterior é um espaço
      Letra := UpperCase(Texto[nX])
    else
      Letra := LowerCase(Texto[nX]);
    Result := Result + Letra; //Armazena a frase de retorno formatada para maiúsculas/minúsculas
  end;
end;