File Handling In Pascal/ru

...
    type
      TIntegerFile  = file of integer;  // Позволяет писать только целые числа в файл
      TExtendedFile = file of extended; // Позволяет писать только дробные цифры в файл
      TCharFile     = file of char;     // Позволяет писать только одиночные символы в файл

{$I+} // В случаи ошибки будет вызвано исключение EInOutError (по умолчанию)
    {$I-} // Подавлять ошибки ввода-вывода: проверьте переменную IOResult для получения кода ошибки.

[???????????? ???? ???????????? 'System'](<http://www.freepascal.org/docs-html/rtl/system/index-5.html>).

program CreateFile;
    
    uses
     Sysutils;
    
    const
      C_FNAME = 'textfile.txt';
    
    var
      tfOut: TextFile;
    
    begin
      // Связываем имя файла с переменной
      AssignFile(tfOut, C_FNAME);
    
      // Использовать исключение для перехвата ошибок (это по умолчанию и указывать не обязательно)
      {$I+}
    
      // Для обработки исключений, используем блок try/except
      try
        // Создать файл, записать текст и закрыть его.
        rewrite(tfOut);
    
        writeln(tfOut, 'Пример текстового файла!');
        writeln(tfOut, 'Пример записи числа: ', 42);
    
        CloseFile(tfOut);
    
      except
        // Если ошибка - отобразить её
        on E: EInOutError do
          writeln('Ошибка обработки файла. Детали: ', E.ClassName, '/', E.Message);
      end;
    
      // Выводим результат операции и ожидаем нажатие Enter
      writeln('Файл ', C_FNAME, ' создан. Нажмите ВВОД для выхода.');
      readln;
    end.

program AppendToFile;
    
    uses
     Sysutils;
    
    const
      C_FNAME = 'textfile.txt';
    
    var
      tfOut: TextFile;
    
    begin
      // Связываем имя файла с переменной
      AssignFile(tfOut, C_FNAME);
    
      // Для обработки исключений, используем блок try/except
      try
        // Открыть файл для записи в конец, записать текст и закрыть его.
        append(tfOut);
    
        writeln(tfOut, 'Ещё пример текстового файла!');
        writeln(tfOut, 'Результат 6 * 7 = ', 6 * 7);
    
        CloseFile(tfOut);
    
      except
        on E: EInOutError do
         writeln('Ошибка обработки файла. Детали: ', E.Message);
      end;
    
      // Выводим результат операции и ожидаем нажатие Enter
      writeln('Файл ', C_FNAME, ' возможно содержит больше текста. Нажмите ВВОД для выхода.');
      readln;
    end.

program ReadFile;
    
    uses
     Sysutils;
    
    const
      C_FNAME = 'textfile.txt';
    
    var
      tfIn: TextFile;
      s: string;
    
    begin
      // Вывод некой информации
      writeln('Чтение содержимого файла: ', C_FNAME);
      writeln('=========================================');
    
      // Связываем имя файла с переменной
      AssignFile(tfIn, C_FNAME);
    
      // Для обработки исключений, используем блок try/except
      try
        // Открыть файл для чтения
        reset(tfIn);
    
        // Считываем строки, пока не закончится файл
        while not eof(tfIn) do
        begin
          readln(tfIn, s);
          writeln(s);
        end;
    
        // Готово. Закрываем файл.
        CloseFile(tfIn);
    
      except
        on E: EInOutError do
         writeln('Ошибка обработки файла. Детали: ', E.Message);
      end;
    
      // Выводим результат операции и ожидаем нажатие Enter
      writeln('=========================================');
      writeln('Файл ', C_FNAME, ' считан. Нажмите ВВОД для выхода.');
      readln;
    end.

program WriteBinaryData;
    {$mode objfpc}
    
    uses
      Classes, Sysutils;
    
    const
      C_FNAME = 'binarydata.bin';
    
    var
      fsOut    : TFileStream;
      ChrBuffer: array[0..2] of char;
    
    begin
      // Создать некоторые случайные данные, которые будут храниться в файле
      ChrBuffer[0] := 'A';
      ChrBuffer[1] := 'B';
      ChrBuffer[2] := 'C';
    
      // Перехват ошибок в случае, если файл не может быть создан
      try
        // Создать экземпляр потока файла, записать в него данные и уничтожить его, чтобы предотвратить утечки памяти
        fsOut := TFileStream.Create( C_FNAME, fmCreate);
        fsOut.Write(ChrBuffer, sizeof(ChrBuffer));
        fsOut.Free;
    
    
      // Обработка ошибки
      except
        on E:Exception do
          writeln('Файл ', C_FNAME, ' не создан, так как: ', E.Message);
      end;
    
      // Выводим результат операции
      writeln('Файл ', C_FNAME, ' создан. Нажмите ВВОД для выхода.');
      //Ожидаем нажатие Enter
      readln;
    end.

program ReadBinaryDataInMemoryForAppend;
    {$mode objfpc}
    
    uses
      Classes, Sysutils;
    
    const
      C_FNAME = 'binarydata.bin';
    
    var
      msApp: TMemoryStream;
    
    begin
      // Создаем поток в памяти
      msApp := TMemoryStream.Create;
    
      // Перехват ошибок в случае их возникновения
      try
        // Считать данные в память
        msApp.LoadFromFile(C_FNAME);
    
        // Переходим в конец данных
        msApp.Seek(0, soEnd);
    
        // Запись неких данных в поток
        msApp.WriteByte(68);
        msApp.WriteAnsiString('Некий текст');
        msApp.WriteDWord(671202);
    
        // Запись данных на диск (файл будет перезаписан)
        msApp.SaveToFile(C_FNAME);
    
      // Обработка ошибки
      except
        on E:Exception do
          writeln('Файл ', C_FNAME, ' не удалось считать или записать, так как: ', E.Message);
      end;
    
      // Освобождаем память и уничтожаем объект
      msApp.Free;
    
      // Выводим результат операции и ожидаем нажатие Enter
      writeln('Файл ', C_FNAME, ' дописан. Нажмите ВВОД для выхода.');
      readln;
    end.

var
      TotalBytesRead, BytesRead : Int64;
      Buffer : array [0..4095] of byte;  // или, array [0..4095] of char
      FileStream : TFileStream;
    
    try
      FileStream := TFileStream.Create;
      FileStream.Position := 0;  // Установим позицию в начало файла
      while TotalBytesRead <= FileStream.Size do  // Пока объем считанных данных меньше размера файла
      begin
        BytesRead := FileStream.Read(Buffer,sizeof(Buffer));  // Считать 4096 байт данных
        inc(TotalBytesRead, BytesRead);                       // Увеличиваем TotalByteRead на размер буфера, т.е. 4096 байт
        // Что-то делаем с буфером данных
      end;

program FileCopyDemo;
    // Пример функции FileCopy
    
    {$mode objfpc}
    
    uses
      classes;
    
    const
      fSource = 'test.txt';
      fTarget = 'test.bak';
    
    function FileCopy(Source, Target: string): boolean;
    // Копируем файл с путем в Source в файл с путем Target.
    // Кэшируем весь файл в память.
    // В случаи успеха возвращаем true, в случаи ошибки - false.
    var
      MemBuffer: TMemoryStream;
    begin
      result := false;
      MemBuffer := TMemoryStream.Create;
      try
        MemBuffer.LoadFromFile(Source);
        MemBuffer.SaveToFile(Target); 
        result := true
      except
        //Подавляем исключение; результатом функции является значение false по умолчанию
      end;
      // Очистка
      MemBuffer.Free
    end;
    
    // Пример использования
    begin
      If FileCopy(fSource, fTarget)
        then writeln('Файл ', fSource, ' скопирован в ', ftarget)
        else writeln('Файл ', fSource, ' не скопирован в ', ftarget);
      readln()
    end.

program StringListDemo;
    {$mode objfpc}
    
    uses
      Classes, SysUtils;
    
    const
      C_FNAME = 'textfile.txt';
    
    var
      slInfo: TStringList;
    
    begin
      // Создаем TStringList для обработки текстового файла
      slInfo := TStringList.Create;
    
      // Для обработки исключений, используем блок try/except
      try
        // Загружаем файл в память
        slInfo.LoadFromFile(C_FNAME);
    
        // Добавляем некие строки
        slInfo.Add('Некая строка');
        slInfo.Add('Ещё одна строка.');
        slInfo.Add('Всё, хватит.');
        slInfo.Add('Сейчас ' + DateTimeToStr(now));
    
        // Записать содержимое на диск, заменив исходное содержимое
        slInfo.SaveToFile(C_FNAME);
    
      except
        // Обработка ошибки
        on E: EInOutError do
          writeln('Произошла ошибка обработки файла. Причина: ', E.Message);
      end;
    
      // Очистка
      slInfo.Free;
    
      // Выводим результат операции и ожидаем нажатие Enter
      writeln('Файл ', C_FNAME, ' обновлен. Нажмите ВВОД для выхода.');
      readln;
    end.

program SaveStringToPathDemo;
    {$mode objfpc}
    
    uses
      Classes, sysutils;
    
    const
      C_FNAME = 'textstringtofile.txt';
    
    // SaveStringToFile: функция для хранения строк текста в файле на диске.
    //   Если результат функции равен True, то строка была написана
    //   Иначе произошла ошибка
    function SaveStringToFile(theString, filePath: AnsiString): boolean;
    var
      fsOut: TFileStream;
    begin
      // По умолчанию результат неудачный
      result := false;
    
      // Записать данную строку в файл, перехватывая ошибки в процессе записи.
      try
        fsOut := TFileStream.Create(filePath, fmCreate);
        fsOut.Write(theString[1], length(theString));
        fsOut.Free;
    
        // На данном этапе известно, что запись прошла успешно.
        result := true
    
      except
        on E:Exception do
          writeln('Строка не записана. Детали: ', E.ClassName, ': ', E.Message);
      end
    end;
    
    //
    // Основная программа
    //
    begin
      // Пытаемся сохранить текст в файл и выводим результат операции
      if SaveStringToFile('>> этот текст сохраняется <<', C_FNAME) then
        writeln('Текст успешно записан в файл.')
      else
        writeln('Не удалось сохранить текст в файл.');
    
      // Ждем нажатия Enter
      readln
    end.