Нетипизированные файлы

В ряде случаев в файл нужно записать "смесь" данных различного типа. Например, сначала идет растровое изображение, затем – подпись под ним, затем – его размеры. Обычный типизированный файл тут не поможет: размер памяти, занимаемый каждым изображением, будет разным. Для подобных случаев существуют нетипизированные файлы, позволяющие просто записывать и считывать "куски" информации, не заботясь об их внутренней структуре. Нетипизированный файл объявляется командой:

VAR f:FILE;

Для работы с нетипизированными файлами применяются следующие процедуры:

Reset(f,n) – открытие файла для чтения с размером блока n байт;
Rewrite(f,n) – открытие файла для записи с размером блока n байт.

В отличие от типизированных файлов, при открытии нетипизированного надо явно указать размер блока – минимальный "кусочек" информации, который можно считать или записать. Если в файл будут записываться отдельные байты, то n=1.

Запись и считывание при использовании нетипизированного файла выполняется следующими процедурами:

BlockRead(f,buf,count,result) – считать из файла f в переменную buf count байт, а в переменную result записать, сколько удалось считать на самом деле;

BlockWrite(f,buf,count,result) – записать в файл f count байт из переменной buf, а в переменную result записать, сколько удалось записать на самом деле.

При этом переменная buf может быть любого типа. Важно лишь, чтобы размер считываемого или записываемого блока информации, задаваемый параметром count, не превосходил размера переменной buf. Чаще всего пишут BlockWrite(f,buf,SizeOf(buf)).

Результат операции с нетипизированным файлом легко проверить. Если result¹count – что-то пошло не так.

Рассмотрим пример создания нетипизированного файла:

VAR f:FILE; s:STRING; w:BYTE; r:WORD;
BEGIN
AssignFile(f,’data.dat’);
ReWrite(f,1);
s:= ’Иванов’; w:=20;
BlockWrite(f,s,SizeOf(s),r);
IF r<>SizeOf(s) THEN

MessageDlg(’Что-то не так!’,mtError,[mbOK],0);
BlockWrite(f,w,SizeOf(w),r);
IF r<>SizeOf(w) THEN
MessageDlg(’Что-то не так!’,mtError,[mbOK],0);
CloseFile(f)

Здесь в файл data.dat записываются текстовая строка и число.