Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 14 стр.

    Пример 8.
    Вставить подстроку S2 в строку S1, начиная с 16-ой по-
зиции.
    S1 : = ' Я разрабатываю программы ' ; S2 : = 'хорошие ';
    Insert (S2, S1, 16) ;
    В результате S1 = ' Я разрабатываю хорошие программы '.
    При вставке в начало и конец строки действие процеду-
ры Insert аналогично выполнению операции конкатенации.
Так, в примере со вставкой звездочек в конец строки можно
заменить s : = s + ' * ' на Insert (' * ' , s , length ( s ) + l).
    При вставке символов нужно обязательно контролиро-
вать длину полученной строки, чтобы не потерять последние
символы. При такой потере никакого сообщения об ошибке
не выдается.
    Пример 9.
    Определить длину строки 123456789.
    n : = Length ('123456789');
    Результат работы функции n = 9.
    Пример 10.
    Выделить из строки S1 пять символов, начиная с 1-ой
позиции.
    S1 : = ' Turbo Pascal ';
    S2 : = Copy (S1, 1, 5);
    S3 : = Copy (S1, 7, 3);
    В результате получим S2 = ' Turbo ', S3 = ' Pas '.
    Пример 11.
    Объединить три строки символов в строке s.
    s : = Concat ('АА1', 'XX', 'Y');
    В результате s = ' AAXXY '.
    Функция Concat выполняет те же действия, что и опера-
ция конкатенации. Например, для приведенного случая то же
самое можно было записать так:
                       s : = 'АА' + 'XX' + 'Y';
    Пример 12.
    Результат работы функции pоs имеет целочисленный тип
и равен номеру той позиции, в которой находится 1-ый сим-
вол подстроки. Если в строке подстроки не найдено, резуль-
тат равен нулю.
                                  14