Действия со строками в Паскале

Операция слияния (сцепления, конкатенации) применяется для соединения нескольких строк в одну, обозначается знаком «+». Операция слияния применима для любых строковых выражений, как констант, так и переменных.

Операции отношения позволяют сравнивать строки на отношение равенства (=), неравенства (<>), больше (>), меньше (<), больше или равно (>=), меньше или равно (<=). В результате сравнения двух строк получается логическое значение (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;

Наши рекомендации