Иллюстрированный самоучитель по Delphi 7 для начинающих

Функция роs. Функция сору.

Функция pos позволяет определить положение подстроки в строке. В общем виде обращение к функции выглядит так:

pos (Подстрока,Строка);

Где Подстрока – строковая константа или переменная, которую надо найти в строковой константе или переменной строка.

Например, в результате выполнения инструкции:

р: = pos('Пе','Санкт-Петербург');

Значение переменной р будет равно 7. Если в строке нет искомой подстроки, то значение функции роs будет равно нулю.

Ниже приведена инструкция while, в результате выполнения которой удаляются начальные пробелы из строки st.

while(pos(' ',st) = 1) and(length(st) > 0) do delete (st,1.1);

Пробелы удаляет инструкция delete (st, i, i), которая выполняется в цикле до тех пор, пока первым символом строки является пробел (в этом случае значение роs (' ',st) равно единице). Необходимость проверки условия length (st) > 0 объясняется возможностью того, что введенная строка состоит только из пробелов.

Функция сору

Функция сору позволяет выделить фрагмент строки. В общем виде обращение к функции сору выглядит так:

сору(Строка, р, n)

Где:

  • Строка – выражение строкового типа, содержащее строку, фрагмент которой надо получить;
  • р – номер первого символа, с которого начинается выделяемая подстрока;
  • n – длина выделяемой подстроки.

Например, в результате выполнения инструкций:

st: = 'Инженер Иванов';
fam: = copy(st, 9, 6);

Значением переменной fam будет строка 'Иванов'.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.