Как проверить имеется ли заглавная буква в строке?

[aks]

Как проверить имеется ли заглавная буква в строке?

[Serge_Bliznykov]

а язык программирования какой?
и для какого языка надо найти заглавную (это имеется в виду Прописная, наверное) буква? Английский, финский, немецкий, испанский, китайский?...

p.s. я уже про название темы молчу...


а вообще алгоритм простой - перебрать все буквы в строке и каждую проверять на вхождение в заданный диапазон.
входит - значит, ПРОПИСНАЯ!

[aks]

Английский, Руский, Delphi

[bumer7721]

нужно создать множество типа

const m=['A'..'Z'];//ето будет множество всех заглавних букв атглийського алфавита

потом нужно пробежатса по строке циклом

for i:=1 to length(s) do //s- строка
              if s[i] in m then
                begin
                  showmessage('Есть заглавная буква в строке'); 
                  break;
                end;

[Serge_Bliznykov]

bumer7721, угу, согласен.

Уточню, если нужно проверять наличие и английских и русских прописных букв,
тогда множество можно задать так:

const m=['A'..'Z','А'..'Я'];

[Партизанин]

Как вариант, чтобы не перебирать все множества символов в языке - можно сравнивать каждый символ строки с ASCII-кодом заглавных букв (точнее с пределами):

{...}
var s : string; {stroka}
     i : integer; {schetchik}
{...}
begin
 for i := 1 to length(s) do
  if ((ord(s[i]) > 64) and (ord(s[i] < 90))) {dlya angliyskih bukv}
   or ((ord(s[i]) > 127) and (ord(s[i] < 160))) {dlya russkih bukv}
   writeln('bukva zaglavnaya');
{...}
end.

Так результат должен получится быстрее.

P.S.:
Таблица ASCII-символов
Информация по ord() и chr()

[Serge_Bliznykov]

Партизанин, Вы абсолютно НЕПРАВЫ!

1) операции с множествами ОЧЕНЬ быстры!
2) приведённый Вами код чрезвычайно ненагляден.

и, главное,
3) у автора вопроса Delphi, следовательно Ваш код для русских букв ВООБЩЕ не будет работать.
(вы использовали таблицу кодов ASCII для OEM кодировки - это кодировка DOS 866) -
код для Turbo Pascal, но не для Delphi, где используется кодировка Windows 1251 (ANSI) )

p.s. это хороший пример, как не надо делать!
Когда в погоне за быстродействием (в данном случае мнимым, кстати) пишется непрозрачный, негибкий, да ещё и ошибочный код!

[Партизанин]

Serge_Bliznykov, извиняюсь, таких подробностей я не знал... Абсолютно доверяю Вашему опыту!

Вопрос на счёт множеств: при проверки нахождения элемента в множестве не перебираются все элементы множества? (ну или до тех пор, пока не будет найдено совпадение)

Код ненагляден, скорей всего так и есть, но также приложил к нему литературу и указал, что конкретно надо в ней посмотреть.

[Serge_Bliznykov]

Код ненагляден, скорей всего так и есть, но также приложил к нему литературу и указал, что конкретно надо в ней посмотреть.

Конкретно к Вашему посту никаких претензий! Вы не только привели свой вариант, но и объяснили как и на основании чего это написано.
Тут всё отлично!

А вот с разными кодировками - тут действительно проблема налицо. Поэтому я и сделал замечание.
Рад, что Вы его правильно восприняли.

p.s. Кстати, если человек понимает, что такое код символа, кодовая таблица, что делают функции ORD и CHR - то подобным кодом вполне можно (ну не нужно ) пользоваться! Делать надо понимая, что делаешь! И надо обязательно помнить про его особенности. А вот новичкам в программировании и изучающим язык я лично подобные трюки не рекомендовал бы!

[Партизанин]

Сообщение от Serge_Bliznykov

А вот новичкам в программировании и изучающим язык я лично подобные трюки не рекомендовал бы!

Тут Вы, пожалуй, опять таки правы! Новичкам в такие дебри лезть и вправду рановато... Не подумал об этом, к тому же ожидал, что, предложенный мною вариант, будет побыстрее, но не зная всех тонкостей - ошибался.