Подпрограммы для работы с файлами, каталогами и дисками

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 EnumerateFiles(path: string; searchPattern: string := '*.*'): sequence of string;
        Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска
function EnumerateAllFiles(path: string; searchPattern: string := '*.*'): sequence of string;
        Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска, включая подкаталоги
function EnumerateDirectories(path: string): sequence of string;
        Возвращает последовательность имен каталогов по заданному пути
function EnumerateAllDirectories(path: string): sequence of string;
        Возвращает последовательность имен каталогов по заданному пути, включая подкаталоги 
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, если файл успешно переименован
function SetCurrentDir(s: string): boolean;
        Устанавивает текущий каталог. Возвращает True, если каталог успешно установлен
function ChangeFileNameExtension(name,newext: string): string;
        Изменяет расширение файла с именем name на newext
function FileExists(name: string): boolean;
        Возвращает True, если файл с именем name существует
function DiskFree(diskname: string): int64;
        Возвращает свободное место в байтах на диске с именем diskname
function DiskSize(diskname: string): int64;
        Возвращает размер в байтах на диске с именем diskname
function DiskFree(disk: integer): int64;
        Возвращает свободное место в байтах на диске disk. disk=0 - текущий диск, disk=1 - диск A: , disk=2 - диск B: и т.д.
function DiskSize(disk: integer): int64;
        Возвращает размер в байтах на диске disk. disk=0 - текущий диск, disk=1 - диск A: , disk=2 - диск B: и т.д.