В следующем примере цикл while not Eof в функции GetLineCount исполь­зуется для получения количества строк текстового файла. Полученный результат затем используется в вызове функцииSetLength для изменения размера динами­ческого массива.

Листинг 8.5. Загрузка текстового файла в динамический массив 

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  myFile: Text;
  lines: array of string;
  cnt: Integer;
  fileName: string;
function GetLineCount(var ATextFile: Text): Integer;
begin
  Result := 0;
  while not Eof(ATextFile) do
  begin
    ReadLn(ATextFile);
    Inc(Result);
  end;
  Reset(ATextFile); { move position to the beginning }
end;
begin
  fileName := 'c:\data.txt';
  AssignFile(myFile, fileName);
  {$I-}
  Reset(myFile);
  {$I+}
  if IOResult = 0 then
  begin
    { resize dynamic array and load the lines into the array}
    SetLength(lines, GetLineCount(myFile));
    for cnt := Low(lines) to High(lines) do
      ReadLn(myFile, lines[cnt]);
    { close file }
    CloseFile(myFile);
    { work with strings in memory }
    for cnt := Low(lines) to High(lines) do
      WriteLn(UpperCase(lines[cnt]));
  end else
    WriteLn('Cannot open file: ', fileName);
  ReadLn;
end.

Как только приложение загрузило весь текстовый файл в динамический мас­сив, файл можно закрыть и продолжить работу со строками в памяти. Конечно, со строками в массиве можно выполнять любые действия, но этот код всего лишь с помощью функции Uppercase преобразует (временно) символы строк в прописные и отображает их на экране.  

 Типизированные файлы представляют собой двоичные файлы, которые содер­жат элементы одинакового размера. Обычно типизированные файлы — это фай­лы, содержащие записи. Чтобы создать типизированный файл, вначале, исполь­зуя следующий синтаксис, необходимо создать новый файловый тип данных:

type NewFileType=file of DataType;

В следующем коде продемонстрировано создание нового файлового типа, кото­рый можно использовать для считывания и записи записей в типизированном файле:

type TPerson = record FirstName: string[20]; LastName: string[30]; Age: Integer; end; TPersonFile = file of TPerson;

Обратите внимание, что строковые поля в объявлении записи имеют явно оп­ределенную длину. Длина строки должна быть определена явно, поскольку размер всей записи должен оставаться постоянным. Если требуется сохранить запись в файле на диске, обычные строки использовать нельзя, поскольку их длина может изменяться в любое время и компилятор не может определить их длину во время компиляции.

Существует несколько различий между текстовыми и типизированными фай­лами:

• При сбросе типизированного файла в нем можно выполнять считывание и запись (при сбросе текстового файла в нем можно выполнять только считы­вание).
• При выполнении считывания или записи из типизированного файла необ­ходимо использовать процедуры Read и Write, а не ReadLn и WriteLn.

В листинге 8.6 демонстрируется работу с типизированными файлами.

Листинг 8.6. Работа с типизированными файлами

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  TPerson = record
    FirstName: string[20];
    LastName: string[30];
    Age: Integer;
  end;
 
  TPersonFile = file of TPerson;
 
procedure ReadRecord(const AFileName: string; var Rec: TPerson);
var
  F: TPersonFile;
begin
  AssignFile(F, AFileName);
  {$I-}
  Reset(F);
  {$I+}
  if IOResult = 0 then
  begin
    Read(F, Rec);
    CloseFile(F);
  end; // if IOResult
end;
 
procedure WriteRecord(const AFileName: string; var Rec: TPerson);
var
  F: TPersonFile;
begin
  AssignFile(F, AFileName);
  Rewrite(F);
  Write(F, Rec);
  CloseFile(F);
end; 
procedure DisplayRecord(var Rec: TPerson);
begin
  WriteLn('First Name: ', Rec.FirstName);
  WriteLn('Last Name: ', Rec.LastName);
  WriteLn('Age: ', Rec.Age);
  WriteLn;
end; 
var
  TestRec: TPerson;
  ReadRec: TPerson; 
begin
  TestRec.FirstName := 'Stephen';
  TestRec.LastName := 'King';
  TestRec.Age := 58;
  WriteRecord('c:\info.dat', TestRec);
  ReadRecord('c:\info.dat', ReadRec);
  DisplayRecord(ReadRec);
  ReadLn;
end.

Еще одно существенное различие между текстовыми и типизированными фай­лами состоит в том, что в то время как текстовые файлы допускают только после­довательный доступ, типизированные файлы допускают произвольный доступ к записям файла. Произвольный доступ возможен вследствие того, что все записи в файле имеют одинаковый размер, поэтому для считывания конкретной записи процедуре достаточно пропустить определенное, легко определяемое количество байт.

Для определения количества записей в файле можно использовать функцию FileSize. Для перехода к определенной записи в файле можно использовать про­цедуру Seek. Эта процедура принимает два параметра: переменную файла и цело­численное значение, указывающее номер записи (начиная с О), к которой необхо­димо выполнить переход.

var F: TPersonFile; RecCount: Integer; begin RecCount := FileSize(F); if RecCount = 0 then WriteLn(<sup>1</sup> Файл пуст') else Seek(F, FileSize(F)); end.

var F: file;

При работе с нетипизированными файлами обращения к процедурам Reset и Rewrite выглядят несколько иначе. Обычно обе эти процедуры в качестве задан­ного по умолчанию размера записи используют 128байт. При работе с нетипизи­рованными файлами этот размер должен быть установлен равным 1 байту. Это можно выполнить, передавая 1 в качестве второго параметра в обоих вызовах:

Reset (F, 1); Rewrite(F,1);

Для считывания и записи данных в нетипизированные файлы применяются процедуры BlockRead иBlockWrite. Объявления этих процедур показаны ниже:

procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred : Integer]); procedure BlockWrite(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);

Первый параметр — переменная нетипизированного файла, используемая для доступа к файлу на диске. Второй параметр — буфер, который процедуры исполь­зуют для передачи данных в файл и из него.

Обычно этот буфер представляет собой статический массив байтов, но он мо­жет быть также и записью. Третий параметр указывает количество передаваемых байтов. Обычно это число равно размеру массива, который легко определить с по­мощью функции SizeOf. Необязательный параметр-переменнаяAmtTransferred можно использовать для отслеживания точного числа байтов, переданных в файл и из него.

Приложение, код которого представлен в листинге 8.7, использует процедуры BlockRead и BlockWrite для предоставления пользователю возможности копиро­вания файлов. Приложение также дает пользователю возможность указывать имена исходного и целевого файлов в командной строке, как показано на рис. 8.2. 

Рис. 8.2. Передача параметров приложению  

Листинг 8.7. Копирование файлов с помощью процедур BlockRead и BlockWrite  

program Project1; {$APPTYPE CONSOLE} uses SysUtils; procedure BlockCopyFile(const SrcPath, DestPath: string); var Src: file; Dest: file; Buffer: array[1..1024] of Byte; BytesRead: Integer; begin if LowerCase(SrcPath) = LowerCase(DestPath) then Exit; AssignFile(Src, SrcPath); {$I-} Reset(Src, 1); {$I+} if IOResult = 0 then begin AssignFile(Dest, DestPath); {$I-} Rewrite(Dest, 1); {$I+} if IOResult = 0 then begin BytesRead := -1; while BytesRead <> 0 do begin BlockRead(Src, Buffer, SizeOf(Buffer), BytesRead); BlockWrite(Dest, Buffer, BytesRead); end; CloseFile(Dest); WriteLn('File successfully copied.'); end; // if Dest Rewrite CloseFile(Src); end; // if Source Reset end; var SourcePath: string; DestPath: string; begin { Accept parameters } if ParamCount = 2 then BlockCopyFile(ParamStr(1), ParamStr(2)) else begin { if there are no parameters in the command line, ask the user to enter filenames here } Write('Source path: '); ReadLn(SourcePath); Write('Destination path: '); ReadLn(DestPath); if (SourcePath <> '') and (SourcePath <> '') then BlockCopyFile(SourcePath, DestPath); end; WriteLn('Press Enter to exit.'); ReadLn; end.