Длина строки.

В TP максимальная длина строки не может превышать 255 символов. Если размер строки не указан, он считается равным 255. Ниже объявлены две строки одинаковой длины.

VAR

att: string;

ts2: string[255];

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

att:= 'Короткая строка';

длина строки составит 15 символов, то следующее присваивание

att:= att + ' стала длиннее';

увеличит её длину до 29 символов.

Функции для работы со строками.

Concat (S1, [S2,..., Sn]: string): string;

Объединяет несколько строк в одну (при необходимости усекает чрезмерно большую строку до 255 символов).

S1, S2,..., Sn - объединяемые строки.

Length (S: string): integer;

Возвращает текущий размер строки.

S - строка, у которой определяется размер.

PROGRAM А3;

VAR

W: string;

BEGIN

Write('Введите, пожалуйста, слово');

Readln(W);

Writeln('Это слово состоит из ',Length(W),'букв! ');

END.

Pos (P,S: string): byte;

Поиск последовательности P в строке S (результат равен номеру первого символа строки S, с которого начинается искомая последовательность, или 0, если такой последовательности в строке нет.

Процедуры для работы со строками.

Copy (S: string; I: integer; C: integer);

Создаёт подстроку строки S.

S - исходная строка;

I - номер первого, выделяемого символа строки, (если значение больше длины строки, возвращается пустая строка);

C - число выделяемых символов (если всех необходимых символов в строке нет, возвращается имеющийся остаток строки).

PROGRAM А4;

VAR

W: string[79];

s1, s2, s3: string[20];

BEGIN

W:= 'картографирование';

Writeln(W); {картографирование}

s1:= Copy(W,6,4);

Writeln(s1); {граф}

s2:= Copy(W,2,3);

Writeln(s2); {арт}

s3:= Copy(W,11,3);

Writeln(s3); {ров}

END.

Delete (var S: string; I: integer; C: integer);

Удаляет подстроку из строки S.

I - номер первого удаляемого символа (если номер больше размера строки, символы не удаляются); C - число удаляемых символов (если символов в строке недостаточно, удаляется остаток символов).

Insert (P: string; var S: string; I: integer);

Помещает подстроку P в строку S (если получается строка слишком большого размера, то она усекается до 255 символов).

S - исходная строка;

P - подстрока, помещаемая в строку;

I - номер позиции исходной строки, начиная с которой помещается подстрока.

PROGRAM А5;

VAR

s1: string[79];

s2: string[20];

BEGIN

s1:= 'компьютеризация';

Writeln(s1); {компьютеризация}

Delete(s1,1,7);

Writeln(s1); {еризация}

Delete(s1,3,2);

Writeln(s1); {ерация}

s2:= 'Г';

Insert(s2,s1,1);

Writeln(s1); {Герация}

s2:= 'не';

Insert(s2,s1,3);

Writeln(s1); {Генерация}

END.

Дата добавления: 2015-08-13