Функция роз позволяет
определить положение подстроки в строке. В общем виде обращение к функции выглядит
так:
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 объясняется возможностью того, что введенная строка состоит только из пробелов.
Знаете ли Вы, что только в 1990-х доплеровские измерения радиотелескопами показали скорость Маринова для CMB (космического микроволнового излучения), которую он открыл в 1974. Естественно, о Маринове никто не хотел вспоминать. Подробнее читайте в FAQ по эфирной физике.
