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

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Функция 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;