Проверка строки

@FunnyK · Регистрация: 02.04.2018

Студворк — интернет-сервис помощи студентам

Доброго времени суток.
Как возможно проверить строку на существование в ней только латинских символом, пробелов, запятых и точки?
Если содержиться что-то другое, то кидать ложь на флажок

@qwertehok · 09.01.2020, 19:08

перебрать строку посимвольно и проверить наличие нужных символов

@Puporev · 09.01.2020, 19:11

Delphi
1
2
3
i:=1;
while(i<=length(stroka))and(s[i] in ['A'..'Z','a'..'z',' ',',','.']) do inc(i);
f:=i>length(s); //f:boolean

@FunnyK · 09.01.2020, 19:11 **[ТС]**

Delphi
1
2
3
4
5
s := 'А проблемы с кирилицей скорее всего связаны с кодировкой оной в базе данных с которой связывается Edit.';
 
for i := 1 to length(s)-1 do
  if not(s[i] in ['А'..'я','A'..'z']) then
    flag := false;

Пробовал, но не работает.

@Puporev · 09.01.2020, 19:13

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

на существование в ней только латинских символом, пробелов, запятых и точки?

Тогда при чем здесь 'А'..'я'?

@FunnyK · 09.01.2020, 19:14 **[ТС]**

Латиница...

@Puporev · 09.01.2020, 19:15

'А'..'я' это латиница?

@FunnyK · 09.01.2020, 19:17 **[ТС]**

Это мой косяк...

@Пытливый · 09.01.2020, 19:18

Так цикл то надо завершать, если найдено совпадение, а так конечно неправильно работает:

Delphi
1
2
3
4
5
6
7
flag := True;
for i := 1 to length(s)-1 do
  if not(s[i] in ['A'..'z', '.', ',' ,' ']) 
  then begin
         flag := False;
         Break;    
         end

;

@Puporev · 09.01.2020, 19:19

У меня цикл без breack.

@Пытливый · 09.01.2020, 19:27

А какой смысл дальше проверять строку? Строка ведь может быть ой какая немаленькая.

@Puporev · 09.01.2020, 19:37

У меня строка проверяется до первого негодного символа.

Добавлено через 49 секунд
Его можно вывести как stroka[i];

@Пытливый · 09.01.2020, 19:44

Ага, это я не ваш код оказывается подправил

Извиняйте, был неправ.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@FunnyK 8 / 6 / 3 Регистрация: 02.04.2018 Сообщений: 247

	Проверка строки 09.01.2020, 19:06. Показов 3963. Ответов 12 Метки нет (Все метки) Доброго времени суток. Как возможно проверить строку на существование в ней только латинских символом, пробелов, запятых и точки? Если содержиться что-то другое, то кидать ложь на флажок 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	09.01.2020, 19:08
	перебрать строку посимвольно и проверить наличие нужных символов 0

@FunnyK 8 / 6 / 3 Регистрация: 02.04.2018 Сообщений: 247
	09.01.2020, 19:14 [ТС]
	Латиница... 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.01.2020, 19:15
	'А'..'я' это латиница? 0

@FunnyK 8 / 6 / 3 Регистрация: 02.04.2018 Сообщений: 247
	09.01.2020, 19:17 [ТС]
	Это мой косяк... 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.01.2020, 19:19
	У меня цикл без breack. 0

@Пытливый 3763 / 2271 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	09.01.2020, 19:27
	А какой смысл дальше проверять строку? Строка ведь может быть ой какая немаленькая. 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.01.2020, 19:37
	У меня строка проверяется до первого негодного символа. Добавлено через 49 секунд Его можно вывести как stroka[i]; 0

@Пытливый 3763 / 2271 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	09.01.2020, 19:44
	Ага, это я не ваш код оказывается подправил Извиняйте, был неправ. 0

Проверка строки

Решение