(продолжение 6)
Процедура Rename
Назначение: Переименовывает внешний файл.
Описание: procedure Rename(var f; NewName);
Примечания: Параметр f представляет собой файловую переменную, соответствующую любому файловому типу. Параметр NewName является выражением строкового типа или типа PChar (если разрешен расширенный синтаксис). Внешнему файлу, связанному с переменной f, присваивается новое имя, заданное параметром NewName. Дальнейшие операции с f будут выполняться с внешним файлом с новым именем.
При указании директивы компилятора {$I-} функция IORеsult будет возвращать значение 0 в том случае, если операция завершилась успешно, и ненулевой код ошибки в противном случае.
Ограничения: Процедура Rename не должна использоваться для открытого файла.
Пример 25.1
VAR f: text; BEGIN assign(f,'test.txt'); rename(f,'new_name.txt'); END.Процедура Reset
Назначение: Открывает существующий файл.
Описание: procedure Reset(f [: file; Size : Word ] );
Примечания: Параметр f является файловой переменной, соответствующей любому типу файла. Он должен быть связан с внешним файлом с помощью процедуры Assign. Параметр размера Size представляет собой необязательное выражение длиной в слово и может указываться только в том случае, если f является нетипизированным файлом.
Процедура Reset открывает существующий внешний файл, имя которого было присвоено f. Если внешний файл с указанным именем отсутствует, то это является ошибкой. Если файл f уже открыт, то
он сначала закрывается, а затем открывается вновь. Текущая позиция в файле устанавливается на начало файла. Если f было присвоено пустое имя (например, Assign(f'')), то после обращения к процедуре Reset f будет ссылкой на стандартный файл ввода(стандартный канал 0).
Если f - текстовый файл, то он становится доступным только по чтению. После обращения к процедуре Reset Eof(f) принимает значение Truе, если файл пуст, и значение False в противном случае.
Если f является нетипизированным файлом, то параметр Size определяет размер записи, который должен использоваться при передаче данных. Если этот параметр опущен, то он подразумевается равным по умолчанию 128 байтам.
При указании директивы компилятора {$I-} функция IORеsult будет возвращать значение 0 в том случае, если операция завершилась успешно, и ненулевой код ошибки в противном случае.
См. пример 24.8
Процедура Rewrite
Назначение: Создает и открывает новый файл.
Описание: procedure Rewrite(f [ : file; Size: Word ] );;
Примечания: Параметр f является файловой переменной, соответствующей любому типу файла. Он должен быть связан с внешним файлом с помощью процедуры Assign. Параметр размера Size представляет собой необязательное выражение длиной в слово и может указываться только в том случае, если f является нетипизированным файлом.
Если этот параметр опущен, то подразумевается размер записи в 128 байт.
Процедура Rewrite создает новый внешний файл, имя которого присвоено f. Если внешний файл с указанным именем уже существует, то он удаляется, и на его месте создается новый пустой файл. Если файл f уже открыт, то он сначала закрывается, а затем открывается вновь. Текущая позиция в файле устанавливается на начало файла.
Если f было присвоено пустое имя (например, Assign(f,'')), то после обращения к процедуре Reset(f) будет ссылкой на стандартный файл ввода (стандартный описатель файла номер 1).
Если f - текстовый файл, то он становится доступным только по записи. После обращения к процедуре Rewrite Eof(f) принимает значение Truе, если файл пуст, и значение False в противном случае.
Если f является нетипизированным файлом, то параметр Size определяет размер записи, который должен использоваться при передаче данных. Если этот параметр опущен, то он подразумевается равным по умолчанию 128 байтам.
При указании директивы компилятора {$I-} функция IORеsult будет возвращать значение 0 в том случае, если операция завершилась успешно, и ненулевой код ошибки в противном случае.
См. пример 24.8
Процедура RmDir
Назначение: Удаляет пустой подкаталог.
Описание: procedure RmDir(s: String);
Примечания: Параметр s является выражением строкового типа. Удаляется подкаталог с путем доступа, заданным строкой s. Если путь доступа не существует, является непустым или если он задает текущий каталог, то происходит ошибка ввода-вывода.
При указании директивы компилятора {$I-} функция IORеsult будет возвращать значение 0 в том случае, если операция завершилась успешно, и ненулевой код ошибки в противном случае.
Пример 25.2
BEGIN
RmDir('123'); {удаляет в текущем каталоге подкаталог с именем 123}
END.
Функция Round
Назначение: Округляет значение вещественного типа до значения целого типа.
Описание: function Round(x: Real): Longint;
Примечания: Параметр x представляет собой выражение вещественного типа. Функция Round возвращает значение длинного целого типа, которое является значением x, округленным до ближайшего целого числа. Если значение x находится точно посередине между двумя целыми числами, то результатом будет число с большим абсолютным значением. Если округленное значение x не соответствует диапазону представления длинного целого типа, то во время выполнения происходит ошибка.
Пример 25.3
VAR
a:real;
b:word;
BEGIN
a:=15.234;
b:=round(a);
writeln('Число b целое = ',b);
END.
Процедура RunError
Назначение: Останавливает выполнение программы и генерирует ошибку этапа выполнения.
Описание: procedure RunError [ (ErrCode : Word ) ];
Примечания: Процедура RunError аналогична процедуре Halt, но в дополнение к остановке программы она генерирует на текущем операторе ошибку этапа выполнения. Параметр ErrCode представляет собой номер ошибки этапа выполнения (0 опущен).
Пример 25.4
VAR p:pointer; BEGIN if p=nil then RunError(204); END.