Строковые процедуры функции

Ну, теперь мы знаем о строках достаточно. Если говорить про обработку строк, то все сводится к работе с одномерными массивами (ведь строка – это одномерный массив символов).

Например, если потребуется вставить строку S1 в строку S, начиная с позиции pos, то код соответствующей процедуры может выглядеть так:

Если вы достаточно трудолюбивы, то вам больше ничего и не нужно. Алгоритмы выполнения основных операций над строками достаточно просты. Но, тем не менее, стоит ознакомиться с набором подпрограмм обработки строк, предоставляемых системой Borland Pascal.

1. procedure Delete(var St: string; Poz, N: integer) – удаление из строки St N символов, начиная с позиции Poz.

2. procedure Insert(St1: string; var St2: string; Poz: integer) – вставка строки St1 в St2, начиная с позиции Poz.

3. procedure Str(Chislo; var St: string) – преобразует числовое значение Chislo в строку St.

4. procedure Val(St: string; var Chislo; var Code: integer) - преобразование строки St в число (целое или вещественное) Chislo. Code – целочисленная переменная, содержит номер первого ошибочного символа (если преобразование прошло без ошибок, то Code=0).

5. function Copy(St: string; Poz, N: integer): string – выделение из строки St подстроки длиной N, начиная с позиции Poz.

6. function Concat(St1, St2, ..., StN: string): string – последовательное сцепление аргументов списка.

7. function Length(St:string): integer – определение длины строки St.

8. function Pos(St1, St2: string): byte – определение позиции первого вхождения строки St1 в St2. Если вхождений не найдено, то возвращается ноль.

Пример. Определить в строке позиции, на которых стоят цифры, и найти сумму этих цифр.