function Range(c1,c2: char): sequence of char;
Возвращает последовательность символов от c1 до c2
function Range(a,b: real; n: integer): sequence of real;
Возвращает последовательность вещественных в точках разбиения отрезка [a,b] на n равных частей
function Range(a,b,step: integer): sequence of integer;
Возвращает последовательность целых от a до b с шагом step
function Seq<T>(params a: array of T): sequence of T;
Возвращает последовательность указанных элементов
function SeqGen<T>(first: T; next: T->T; count: integer): sequence of T;
Возвращает последовательность из count элементов, начинающуюся с first, с функцией next перехода от предыдущего к следующему
function SeqGen<T>(first,second: T; next: (T,T)->T; count: integer): sequence of T;
Возвращает последовательность из count элементов, начинающуюся с first и second, с функцией next перехода от двух предыдущих к следующему
function SeqFill<T>(x: T; count: integer): sequence of T;
Возвращает последовательность из count элементов x
function SeqFill<T>(count: integer; f: integer->T): sequence of T;
Возвращает последовательность из count элементов, заполненных значениями f(i)
function SeqWhile<T>(first: T; next: T->T; pred: T->boolean): sequence of T;
Возвращает последовательность элементов с начальным значением first, функцией next перехода от предыдущего к следующему и условием pred продолжения последовательности
function SeqWhile<T>(first,second: T; next: (T,T)->T; pred: T->boolean): sequence of T;
Возвращает последовательность элементов, начинающуюся с first и second, с функцией next перехода от двух предыдущих к следующему и условием pred продолжения последовательности
function SeqRandom(n: integer := 10; a: integer := 0; b: integer := 100): sequence of integer;
Возвращает последовательность из n случайных целых элементов
function SeqRandomReal(n: integer := 10; a: real := 0; b: real := 10): sequence of real;
Возвращает последовательность из n случайных вещественных элементов
function ReadSeqInteger(n: integer): sequence of integer;
Возвращает последовательность из n целых, введенных с клавиатуры
function ReadSeqInteger(const prompt: string; n: integer): sequence of integer;
Выводит приглашение к вводу и возвращает последовательность из n целых, введенных с клавиатуры
function ReadSeqReal(n: integer): sequence of real;
Возвращает последовательность из n вещественных, введенных с клавиатуры
function ReadSeqReal(const prompt: string; n: integer): sequence of real;
Выводит приглашение к вводу и возвращает последовательность из n вещественных, введенных с клавиатуры
function ReadSeqString(n: integer): sequence of string;
Возвращает последовательность из n строк, введенных с клавиатуры
function ReadSeqString(const prompt: string; n: integer): sequence of string;
Выводит приглашение к вводу и возвращает последовательность из n строк, введенных с клавиатуры
Функции для работы с именами файлов
function ExtractFileName(fname: string): string;
|
Выделяет имя файла из полного имени файла fname |
|
function ExtractFileExt(fname: string): string; Выделяет расширение из полного имени файла fname |
|
function ExtractFilePath(fname: string): string; Выделяет путь из полного имени файла fname |
|
function ExtractFileDir(fname: string): string; Выделяет имя диска и путь из полного имени файла fname |
|
function ExtractFileDrive(fname: string): string; Выделяет путь из полного имени файла fname |
|
function ExpandFileName(fname: string): string; Возвращает полное имя файла fname |
Подпрограммы для работы с файлами, каталогами и дисками
function ReadLines(path: string): sequence of string;
|
Считывает строки из файла и превращает их в последовательность строк |
|
function ReadLines(path: string; en: Encoding): sequence of string; Считывает строки из файла с кодировкой en и превращает их в последовательность строк |
|
function ReadAllLines(path: string): array of string; Считывает строки из файла в массив строк |
|
function ReadAllLines(path: string; en: Encoding): array of string; Считывает строки из файла с кодировкой en в массив строк |
|
function ReadAllText(path: string): string; Считывает содержимое файла в строку |
|
function ReadAllText(path: string; en: Encoding): string; Считывает содержимое файла с кодировкой en в строку |
|
procedure WriteLines(path: string; ss: sequence of string); Создает новый файл, записывает в него строки из последовательности |
|
procedure WriteLines(path: string; ss: sequence of string; en: Encoding); Создает новый файл с кодировкой en, записывает в него строки из последовательности |
|
procedure WriteAllLines(path: string; ss: array of string); Создает новый файл, записывает в него строки из массива |
|
procedure WriteAllLines(path: string; ss: array of string; en: Encoding); Создает новый файл с кодировкой en, записывает в него строки из массива |
|
procedure WriteAllText(path: string; s: string); Создает новый файл, записывает в него содержимое строки |
|
procedure WriteAllText(path: string; s: string; en: Encoding); Создает новый файл с кодировкой en, записывает в него содержимое строки |
|
function GetDir: string; Возвращает текущий каталог |
|
procedure ChDir(s: string); Меняет текущий каталог |
|
procedure MkDir(s: string); Создает каталог |
|
procedure RmDir(s: string); Удаляет каталог |
|
function CreateDir(s: string): boolean; Создает каталог. Возвращает True, если каталог успешно создан |
|
function DeleteFile(s: string): boolean; Удаляет файл. Если файл не может быть удален, то возвращает False |
|
function GetCurrentDir: string; Возвращает текущий каталог |
|
function RemoveDir(s: string): boolean; Удаляет каталог. Возвращает True, если каталог успешно удален |
|
function RenameFile(name, newname: string): boolean; Переименовывает файл name, давая ему новое имя newname. Возвращает True, если файл успешно переименован |