Карта сайтаСсылкиКонтакты

Хостинг


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

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

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

 

Комментарии   

 
0 #1 Walter Domanski 13.05.2017 02:57
WOW just what I was looking for. Came here by searching for
UpperCase
Цитировать
 
 
0 #2 Maks Miedzinski 08.06.2017 13:25
Thanks for a marvelous posting! I certainly enjoyed reading it,
you will be a great author. I will make certain to bookmark your blog and may come back
someday. I want to encourage that you continue your great
work, have a nice holiday weekend!
Цитировать
 

Добавить комментарий


Защитный код
Обновить