Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Строки представляют собой последовательность символов.
Название | Максимальная длина | Нулевой символ в конце (#0) | Вид строки и директива компилятора |
ShortString | Нет | Короткая строка со счетчиком длины | |
AnsiString | 2 Гб | Есть | Длинная строка с символом #0 в конце |
String | 2 Гб | Есть | {$ H+ }‑ тип AnsiString |
String [n] | Нет | {$H‑} или есть n ‑ тип ShortString | |
WideString | 1 Гб | Есть | Строка 16‑битовых символов Unicode |
Пример:
Type Fam=String; Var FamStud, FamPrep: Fam; Date: String [8]
Функция Length(s) возвращает длину текущего значения строки.
Процедура SetLength(s,n) переопределяет строку (s) с новой длиной в n символов; при этом сохраняются начальные символы и удаляются последние символы при уменьшении длины строки.
Строка трактуется как одномерный массив символов типов AnsiChar или WideChar соответственно. Доступ к отдельному символу строки можно осуществлять по его порядковому номеру (отсчет от 1 ‑ для коротких и от 0 - для длинных строк).
Пример: A:=Fam[5]; {выбирается пятый символ строки Fam}
Строку можно объявить в виде массива:
Type TS=Array [0..1000] Of Char; Var S1,S2: TS;
К строкам можно применять операцию сцепления строк «+», строковые процедуры и функции.
Пример. Используя переменные fam, imj, otch, famio, присвоить переменной famio текст «Иванов И.И.»
fam:='Иванов'; imj:='Иван'; otch:='Иванович';
famio:=fam+' '+copy(imj,1,1)+'. '+copy(otch,1,1)+'.'
Дата публикования: 2014-12-11; Прочитано: 212 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!