É necessário estar declarado Windows na seção uses,
em versões unicode declare Winapi.Windows;
Função do Delphi: IsCharUpper(Char);
Retorno: Boolean.
Exemplos de uso.
1 2 3 4 5 6 7 8 9 10 11 12 | procedure TForm1.Button1Click(Sender: TObject); begin if IsCharUpper('U') then ShowMessage('O caracter está maiúsculo.') else ShowMessage('O caracter não está maiúsculo.'); if IsCharUpper('i') then ShowMessage('O caracter está maiúsculo.') else ShowMessage('O caracter não está maiúsculo.'); end; |
