Здравствуйте!

Сегодня мы поговорим о бестиповых файлах. Бестиповые файлы позволяют записывать произвольные данные в файл.

Для создания файловой переменной, мы должны указать просто слово file:

var
F : file;

Однако не всё так просто, как хотелось бы :( Помните в прошлый раз я написал дополнительные параметры к функциям Rewrite и Rest ? Для типовых файлов эти параметры были не важны, а вот для бестиповых.... так, что читайте ниже дополнительное описание этих процедур:

• procedure Reset(var F : File; Recsize: Word );
• procedure Rewrite(var F: File ; Recsize: Word );

А вот запись и чтение осуществляется другими процедурами.

procedure BlockRead(var F: File; var Buf; Count: Word; var Result: Word);

program test;

var
  FromF: file;
  Buf : string;

begin
  Assign(FromF, 'C:\1.txt');
  Reset(FromF, 1);
  BlockRead (FromF, Buf, SizeOf(Buf));
  Close(FromF)
end.

Ну и соответственная процедура для записи в файл:

procedure BlockWrite(var f: File; var Buf; Count: Word; var Result: Word);

Например запишем в файл строку, которую ввёл пользователь:

var
  FromF: file;
  Buf : string;

begin
  ClrScr;
  Assign(FromF, 'C:\2.txt');
  rewrite(FromF, 1);
  readLn (buf);
  BlockWrite(FromF, Buf, SizeOf(Buf));
  Close(FromF)
end.

Однако рамер одного символа = 1 байту, размер строки = buf [0], поэтому преобразовав вызов процедуры в такой, мы получим нужный результат (т.е. такой результат, что бы размер файла соответствовал размеру строки + 1):

BlockWrite(FromF, Buf, ord (Buf[0]) + 1);

BM:_ :
( А р

 _ + - A A +н{ _¦Д +нs _н{ _+Ф _¦{ _¦М _+М _¦Ь я_+ яч_ ч¦е ч++ ч+н ч+е ўяч ячч _+Ь +¦{ _нs я_¦ ч+¦ ўўў ўяя _+Д ўўя ч+¦ яч+ ч+¦ ч¦Ь яч+ я++ яя_ ўч_ ўя_ ўўч _¦s я+¦ ч+Ь ўч+ я_+ я_+ я+¦ _ўў ч+Ф _¦Ф я+¦ ч¦н __ў ўў_ ў_ў ў_+ ўч+ ___ ч+н ч¦Ф _ў_ я+н ч+Ь ч+М ў__ я+н ч¦М ч¦Д я+е

Сегодня мы не будем особо выдумывать и напишем очередную програмку, которая копирует один файл в другой. Естесственно мы будем считать, что оба файла не типизированные. И как всегда :) скопируем autoexec.bat в autoexec.txt:

program CopyFile;

var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array [1..100] of Char;

begin
  Assign(FromF, 'C:\autoexec.bat');
  Reset(FromF, 1);
  Assign(ToF, 'C:\autoexec.txt');
  Rewrite(ToF, 1);

  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten)
  until (NumRead = 0) or (NumWritten <> NumRead);

  Close(FromF);
  Close(ToF)
end.

BlockRead(FromF, Buf, SizeOf(Buf), NumRead);

BlockWrite(ToF, Buf, NumRead, NumWritten)