Значение S      Выражение        Результат

'test-5' Length(S) 6

'(A+B)*C' Length(S) 7

Length(s:string):integer

Функция возвращает в качестве результата значение текущей длины строки-параметра

Пример.

n := length('Pascal'); {n будетравно 6}

Функция Concat(S1, S2, …, SN) выполняет сцепление (конкатенацию) строк S1, S2, …, SN в одну строку.

Пример:

Выражение                                                     Результат

Concat('Маша ', 'ела ', 'кашу') 'Маша ела кашу'

Concat(s1,[s2,...,sn]:string):string

Функция выполняет слияние строк-параметров, которых может быть произвольное количество. Каждый параметр является выражением строкового типа. Если длина строки-результата превышает 255 символов, то она усекается до 255 символов. Данная функция эквивалентна операции конкатенации "+" и работает немного менее эффективно, чем эта операция.

Функция Copy(S, Pozition, N) выделяет из строки S подстроку длиной N символов, начиная с позиции Pozition. Здесь N и Pozition — целочисленные выражения.

Пример:

Значение S                         Выражение                Результат

‘Мама мыла раму’ Copy(S, 6, 4) ‘мыла’

‘Маша ела кашу’ Copy(S, 1, 8) ‘Маша ела’

Пример.

s := 'Система TurboPascal';

s2 := copy(s, 1, 7); {s2 будет равно 'Система'}

s3 := copy(s, 9, 5); {s3 будетравно 'Turbo'}

s4 := copy(s, 15, 6); {s4 будетравно 'Pascal'}

Функция Pos(S1, S2) — обнаруживает первое появление в строке S2 подстроки S1. Результат — целое число, равное номеру позиции, где находится первый символ подстроки S1. Если в S2 подстроки S1 не обнаружено, то результат равен 0.

Пример:

Значение S2    Выражение                    Результат

'abcdef' Pos('cd', S2) 3

'abcdcdef' Pos('cd', S2) 3

'abcdef' Pos('k', S2)  0

Процедура Delete(S, Poz, N) — удаление N символов из строки S, начиная с позиции Poz.

Пример:

Исходное значение S Оператор                    Конечное значение S

'abcdefg'   Delete(S, 3, 2) 'abefg'

'abcdefg'   Delete(S, 2, 6) 'a'

В результате выполнения процедуры уменьшается текущая длина строки в переменной S.

Процедура Insert(S1, S2, Poz) — вставка строки S1 в строку S2, начиная с позиции Poz.

Пример:

Исходное значение S2 Оператор                               Конечное значение S2

'ЭВМРС' Insert('IBM-', S2, 5) 'ЭВМIBM-PC'

'Рис. 2'    Insert('N', S2, 6) ' Рис. N 2'

Delete(var s:string; index,count:integer)

Процедура удаляет из строки-параметра s подстроку длиной countсимволов, начиная с символа под номером index.

Пример.

s := 'Система TurboPascal';

delete(s,8,6); {s будет равно 'Система Pascal'}

В дополнение приведем некоторые функции, связанные с типом char, но которые тем не менее часто используются при работе со строками.

Chr(n: byte): char

Функция возвращает символ по коду, равному значению выражения n. Если n можно представить как числовую константу, то можно также пользоваться записью #n.

Ord(ch: char): byte;

В данном случае функция возвращает код символа ch.

UpCase(c: char): char;

Если c - строчная латинская буква, то функция возвращает соответствующую прописную латинскую букву, в противном случае символ c возвращается без изменения.

Другой пример:

Решим задачу: "Введенную строку вывести на экран по одному символу в строке экрана".

Program Str2;

Var

S : String;

I : Byte;

Begin

Writeln('Введитестроку');

Readln(S);

ForI:=1 toLength(S) do{организуем цикл, начиная с первого символа}

Writeln(S[I]) {строки, до последнего (номер последнего}{совпадает с количеством символов строки S) }

End.