Для обработки строковой информации в Турбо Паскаль введен строковый тип
данных. Строкой в Паскале называется последовательность из определенного
количества символов. Количество символов последовательности называется длиной
строки. Синтаксис:
var s: string[n];
var s: string;
n - максимально возможная длина строки - целое число в диапазоне 1..255.
Если этот параметр опущен, то по умолчанию он принимается равным 255.
Строковые константы записываются как последовательности символов,
ограниченные апострофами. Допускается формирование строк с использованием
записи символов по десятичному коду (в виде комбинации # и кода символа) и
управляющих символов (комбинации ^ и некоторых заглавных латинских букв).
Пример:
'Текстовая строка' #54#32#61 'abcde'^A^M
Пустой символ обозначается двумя подряд стоящими апострофами. Если апостроф
входит в строку как литера, то при записи он удваивается.
Переменные, описанные как строковые с разными максимальными длинами, можно
присваивать друг другу, хотя при попытке присвоить короткой переменной
длинную лишние символы будут отброшены.
Выражения типа char можно присваивать любым строковым переменным.
В Турбо Паскаль имеется простой доступ к отдельным символам строковой
переменной: i-й символ переменной st записывается как st[i]. Например,
если st - это 'Строка', то st[1] - это 'С', st[2] - это 'т', st[3] - 'р'
и так далее.
Над строковыми данными определена операция слияния (конкантенации),
обозначаемая знаком +. Например:
a := 'Turbo';
b := 'Pascal';
c := a + b;
В этом примере переменная c приобретет значение 'TurboPascal'.
Кроме слияния над строками определены операции сравнения
<,>,=,<>,<=,>=. Две строки сравниваются посимвольно, слева
направо, по кодам символов. Если одна строка меньше другой
по длине, недостающие символы короткой строки заменяются символом
с кодом 0.
В системе Turbo Pascal имеется несколько полезных стандартных процедур
и функций, ориентированных на работу со строками. Ниже приводится список
этих процедур и функций с краткими пояснениями.
Length(s:string):integer
Функция возвращает в качестве результата значение текущей длины
строки-параметра
Пример.
n := length('Pascal'); {n будет равно 6}
Concat(s1,[s2,...,sn]:string):string
Функция выполняет слияние строк-параметров, которых может быть произвольное
количество. Каждый параметр является выражением строкового типа. Если длина
строки-результата превышает 255 символов, то она усекается до 255
символов. Данная функция эквивалентна операции конкатенации "+" и работает
немного менее эффективно, чем эта операция.
Функция возвращает подстроку, выделенную из исходной строки s, длиной
count символов, начиная с символа под номером index.
Пример.
s := 'Система Turbo Pascal';
s2 := copy(s, 1, 7); {s2 будет равно 'Система'}
s3 := copy(s, 9, 5); {s3 будет равно 'Turbo'}
s4 := copy(s, 15, 6); {s4 будет равно 'Pascal'}
Delete(var s:string; index,count:integer)
Процедура удаляет из строки-параметра s подстроку длиной count символов,
начиная с символа под номером index.
Пример.
s := 'Система Turbo Pascal';
delete(s,8,6); {s будет равно 'Система Pascal'}
Insert(source:string; var s:string;index:integer)
Процедура предназначена для вставки строки source в строку s, начиная с
символа index этой строки.
Пример.
s := 'Система Pascal';
insert('Turbo ',s,9); {s будет равно 'Система Turbo Pascal'}
Pos(substr,s:string):byte
Функция производит поиск в строке s подстроки substr. Результатом функции
является номер первой позиции подстроки в исходной строке. Если подстрока
не найдена, то функция возвращает 0.
Пример.
s := 'Система Turbo Pascal';
x1 := pos('Pascal', s); {x1 будет равно 15}
x2 := pos('Basic', s); {x2 будет равно 0}
Str(X: арифметическое выражение; var st: string)
Процедура преобразует численное выражение X в его строковое представление
и помещает результат в st.
Val(st: string; x: числовая переменная; var code: integer)
Процедура преобразует строковую запись числа, содержащуюся в st, в
числовое представление, помещая результат в x. x - может быть как целой,
так и действительной переменной. Если в st встречается недопустимый (с точки
зрения правил записи чисел) символ, то преобразование не происходит, а в code
записывается позиция первого недопустимого символа. Выполнение программы при
этом не прерывается, диагностика не выдается. Если после выполнения процедуры
code равно 0, то это свидетельствует об успешно произошедшем преобразовании.
В дополнение приведем некоторые функции, связанные с типом char, но
которые тем не менее часто используются при работе со строками.
Chr(n: byte): char
Функция возвращает символ по коду, равному значению выражения n. Если n
можно представить как числовую константу, то можно также пользоваться
записью #n.
Ord(ch: char): byte;
В данном случае функция возвращает код символа ch.
UpCase(c: char): char;
Если c - строчная латинская буква, то функция возвращает соответствующую
прописную латинскую букву, в противном случае символ c возвращается без
изменения.
Знаете ли Вы, что модульность - это такая организация объектов, когда они заключают в себе полное определение их характеристик, никакие определения методов и свойств не должны располагаться вне его, это делает возможным свободное копирование и внедрение одного объекта в другие.
