Как проверить, является ли вся строка в верхнем регистре

Печать
Статьи

Функция IsUpperCase возвращает True, если строка, переданная, как параметр Value, вся находится в верхнем регистре.

Вот эта функция:


function IsUpperCase(Value: string): Boolean;
 begin
    Result := Value = UpperCase(Value) ;
 end;

Пример использования:


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsUpperCase('PROBA')));
end;