Действия со строками в Паскале
Операция слияния (сцепления, конкатенации) применяется для соединения нескольких строк в одну, обозначается знаком «+». Операция слияния применима для любых строковых выражений, как констант, так и переменных.
Операции отношения позволяют сравнивать строки на отношение равенства (=), неравенства (<>), больше (>), меньше (<), больше или равно (>=), меньше или равно (<=). В результате сравнения двух строк получается логическое значение (true или false). Сравнение строк производится слева направо посимвольно до первого несовпадающего символа, большей считается та строка, в которой первый несовпадающий символ имеет больший код в таблице кодировки. Если строки имеют различную длину, но в общей части символы совпадают, считается, что короткая строка меньше. Строки равны, если они имеют равную длину и соответствующие символы совпадают.
Стандартные функции.
| Вызов | Описание |
| function Chr(a: byte): char; | Символ ASCII c номером а. |
| function Concat(s1,s2,...: string): string; | Возвращает строку, являющуюся результатом слияния строк s1,s2,... |
| function Copy(s: string; index,count: integer): string; | Возвращает подстроку строки s длины count с позиции index |
| procedure Delete(var s: string; index,count: integer); | Удаляет из строки s count символов с позиции index. |
| procedure Insert(source: string; var s: string; index: integer); | Вставляет подстроку source в строку s с позиции index |
| function Length(s: string): integer; | Возвращает длину строки |
| function LowCase(ch: char): char; | Строка S в нижнем регистре. |
| function Pos(subs,s: string): integer; | Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0 |
| procedure Str(i: integer; var s: string | Преобразует целое значение i к строковому представлению и записывает результат в s |
| function StringOfChar(ch: char; count: integer): string; | Возвращает строку, состоящую из count символов ch |
| function UpCase(ch: char): char; | Преобразует символ в верхний регистр |
| Val(S,V, C) | Преобразует строку S в число V. При ошибке в C заносится номер ошибочного символа строки S. |
| Ord(n) | Номер n (Код ASCII) |
| Succ (n) | Следующее значение в последовательности |
| Pred (n) | Предыдущее значение в последовательности |
| function ChrUnicode(a: word): char; Преобразует код в символ в кодировке Unicode |
| function OrdUnicode(a: char): word; Преобразует символ в код в кодировке Unicode |
| function UpperCase(ch: char): char; Преобразует символ в верхний регистр |
| function LowerCase(ch: char): char; Преобразует символ в нижний регистр |
| function PosEx(subs,s: string; from: integer := 1): integer; Возвращает позицию подстроки subs в строке s начиная с позиции from. Если не найдена, возвращает 0 |
| procedure SetLength(var s: string; n: integer); Устанавливает длину строки s равной n |
| function Concat(s1,s2: string): string; Возвращает строку, являющуюся результатом слияния строк s1 и s2 |
| function LowerCase(s: string): string; Возвращает строку в нижнем регистре |
| function UpperCase(s: string): string; Возвращает строку в верхнем регистре |
| function ReverseString(s: string): string; Возвращает инвертированную строку |
| function CompareStr(s1,s2: string): integer; Сравнивает строки. Возвращает значение < 0 если s1 0 если s1>s2 и = 0 если s1=s2 |
| function LeftStr(s: string; count: integer): string; Возвращает первые count символов строки s |
| function RightStr(s: string; count: integer): string; Возвращает последние count символов строки s |
| function Trim(s: string): string; Возвращает строку с удаленными начальными и конечными пробелами |
| function TrimLeft(s: string): string; Возвращает строку с удаленными начальными пробелами |
| function TrimRight(s: string): string; Возвращает строку с удаленными конечными пробелами |
| function Format(fmtstr: string; params pars: array of object): string; Возвращает отформатированную строку, построенную по форматной строке fmtstr и списку форматиуемых параметров pars |
| function StrToInt(s: string): integer; Преобразует строковое представление целого числа к числовому значению |
| function StrToInt64(s: string): int64; Преобразует строковое представление целого числа к числовому значению |
| function StrToFloat(s: string): real; Преобразует строковое представление вещественного числа к числовому значению |
| function TryStrToInt(s: string; var value: integer): boolean; Преобразует строковое представление s целого числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False |
| function TryStrToInt64(s: string; var value: int64): boolean; Преобразует строковое представление s целого числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False |
| function TryStrToFloat(s: string; var value: real): boolean; Преобразует строковое представление s вещественного числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False |
| function TryStrToFloat(s: string; var value: single): boolean; Преобразует строковое представление s вещественного числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False |
| procedure Val(s: string; var value: integer; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: shortint; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: smallint; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: int64; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: byte; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: word; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: longword; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: uint64; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: real; var err: integer); Преобразует строковое представление s вещественного числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Val(s: string; var value: single; var err: integer); Преобразует строковое представление s вещественного числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0 |
| procedure Str(r: real; var s: string); Преобразует вещественное значение r к строковому представлению и записывает результат в s |
| function IntToStr(a: integer): string; Преобразует целое число к строковому представлению |
| function IntToStr(a: int64): string; Преобразует целое число к строковому представлению |
| function FloatToStr(a: real): string; Преобразует вещественное число к строковому представлению |
Операции со строками.
1 . Операция сравнения (так как в строках определён порядок, то для их возможно сравнить).
В строках определён лексико-графический порядок: из двух строк меньшей считается та у который первый символ меньше.
Пустая строка по умолчанию меньше всех остальных.
2. Операция обращения к элементу строки
В отличии от массивов нельзя s[5]:=’c’ для этого лучше воспользоваться Copy или Concat.
Записи.
Данные такого рода, описывающие существенные стороны того или иного объекта путем включения в описание нескольких, часто разнотипных, элементов, называют записью (record). В языке Паскаль запись определяется путем указания служебного слова record и перечисления входящих в запись элементов с указанием типов этих элементов.
Запись Паскаля – структурированный комбинированный тип данных, состоящий из фиксированного числа компонент (полей) разного типа.
type < имя _ типа >=record
<имя_поля1>: тип;
<имя_поля2>: тип;
………………….
<имя_поля K >: тип
end ;
где record – служебное слово, а <имя_типа> и <имя_поля> - правильные идентификаторы языка Паскаль.
Type anketa1=record
fio: string[45];
pol: char;
dat_r: record;
god: integer;
mes: string[10];
den: 1..31;
end;
adres: record
gorod: string[25];
ulica: string [20];
dom, kv: integer;
end;
curs: 1..5;
grupp: string[3];
end;
Полями записи могут быть любые типы (базовые, структурированные, конструируемые, процедуры, функции, файлы)
var
student: anketa;
student 1: anketa 1;