BlockRead(F, DoubleArray, 32, Transfered);
CloseFile(F);
ShowMessage('Считано 1+IntToStr(Transfered)+' блоков');
end;

Как видно из примера, размер блока установлен в процедуре Reset и кратен размеру элемента массива DoubleArray, в который считываются данные. В переменной Transfered возвращается число считанных блоков. Если размер файла меньше заданного в процедуре BlockRead числа блоков, ошибка не возникает, а в переменной Transfered передается число реально считанных блоков.

Процедура

procedure BlockWrite(var f: File;
var Buf;
Count: Integer [;
varAmtTransferred: Integer]);

используется аналогично.

Оставшиеся функции ввода/вывода, работающие с файловыми переменными, подробно описаны в табл. 9.1.

Таблица 9.1. Процедуры и функции для работы с файлом

Объявление

Описание

function ChangeFileExt(const FileName, Extension: string) : string;

Функция позволяет изменить расширение файла. При этом сам файл не переименовывается

procedure ChDir(S: string);

Процедура изменяет текущий каталог на другой, путь к которому описан в строке s

procedure CloseFile(var F);

Вызов процедуры разрывает связь между файловой переменной и файлом на диске.

Имя этой процедуры изменено из-за конфликта имен в Delphi (в Borland Pascal используется процедура Close)

function DeleteFile (const FileName: string) : Boolean;

Функция производит удаление файла FileName сдиска и возвращает значение False, если файл удалить не удалось или файл не существует

Та блица 9.1 (продолжение)

Объявление

Описание

function ExtractFileExt (const

FileName: string): string;

Функция возвращает расширение файла

function ExtractFileName(const

FileName: string) : string;

Извлекает имя и расширение файла, содержащегося в параметре FileName

function ExtractFilePath(const

FileName: string): string;

Функция возвращает полный путь к файлу

procedure Erase(var F) ;

Удаляет файл, связанный с файловой переменной F

function FileSearch(const

Name, DirList: string) : string;

Данная процедура производит поиск в каталогах DirList файла Name. Если в процессе выполнения FileSearch обнаруживается искомое имя файла, то функция возвращает в строке типа String полный путь к найденному файлу. Если файл не найден, то возвращается пустая строка

function FileSetAttr(const

FileName: string;
Attr: Integer):Integer;

Присваивает файлу с именем FileName атрибуты Attr. Функция возвращает 0, если присвоение атрибутов прошло успешно. В противном случае возвращается код ошибки

function FilePos (var F ) : Longint;

Возвращает текущую позицию файла. Функция используется для нетекстовых файлов. Перед вызовом FilePos файл должен быть открыт

function FileSize(var F) : .Integer;

FileSize возвращает размер файла в байтах или количество записей в файле, содержащем записи. Перед вызовом данной функции файл должен быть открыт.

Для текстовых файлов функция FileSize не используется

procedure Flush(var F: Text) }

Процедура очищает буфер текстового файла, открытого для записи. F- файловая переменная.

Когда текстовый файл открыт для записи с использованием функции Rewrite или Append, Flush очищает выходной буфер, связанный с файлом. После выполнения данной процедуры все символы, которые направлены для записи в файл, будут гарантированно записаны в нем

Таблица9.1 (продолжение)


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Июнь
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс