Функция pos позволяет определить положение подстроки в строке. В общем виде обращение к
функции выглядит так:
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 объясняется
возможностью того, что введенная строка состоит только из пробелов.