Функция роs
Функция роs
Функция роз позволяет определить положение подстроки в строке. В общем виде обращение к функции выглядит так:
pos (Подстрока,Строка) ;
где Подстрока — строковая константа или переменная, которую надо найти в строковой константе или переменной строка.
Например, в результате выполнения инструкции
р := pos('Пе','Санкт-Петербург');
значение переменной р будет равно 7. Если в строке нет искомой подстроки, то значение функции роз будет равно нулю.
Ниже приведена инструкция while, в результате выполнения которой удаляются начальные пробелы из строки st.
while(pos(' ',st) = 1) and(length(st) > 0) do delete (st,1,1);
Пробелы удаляет инструкция delete (st, i, i), которая выполняется в цикле до тех пор, пока первым символом строки является пробел (в этом случае значение роs (' ',st) равно единице). Необходимость проверки условия length (st) > 0 объясняется возможностью того, что введенная строка состоит только из пробелов.