Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Нетипизированные файлы в Delphi 8

Автор: MAXSA 28.05.2006 18:29

Здравствуйте.....
Недавно я перешёл с Delphi 7 на Delphi 8 for .NET. Как пологается открыл учебник и начал изучать. Дойдя до раздела 'Нетипизированные файлы' обнаружил пример программы для консоли 'Копирование файлов' и решил опробовать на Delphi 8. Ниже приведён листинг проги. И вот в чём проблемма. Компилятор ругается при описании нетипизированых файлов в строке: FromF, ToF: file; .Опробывал пример на Delphi 7, всё прекрасно работает. Подскажите, в чём проблемма? Заранее благодарен.

Листинг прогрммы ''Копирование файлов'.

Код
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  FromF, ToF: file;                          {Проблемная строка}
  NumRead, NumWritten: Integer;
  Buf: array [l..2048] of Char;
  inFileName: String;
  outFileName: String;
begin
  Write('inFileName = ' );
  Readln(inFileName);
  AssignFile(FromF, inFileName);       { Открыть входной файл. }
  Reset(FromF, 1);         { Размер блока = 1. }
  Write('outFileName = ' );
  Readln(outFileName);
  begin
    AssignFile(ToF, outFileName);       { Открыть выходной файл. }
    Rewrite(ToF, 1);          { Размер блока = 1. }
    repeat
      BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
      BlockWrite(ToF, Buf, NumRead, NumWritten);
    until (NumRead = 0) or (NumWritten <> NumRead);
    CloseFile(FromF);          { Закрыть входной файл. }
    CloseFile(ToF);         { Закрыть выходной файл. }
  end;
end.

Автор: volvo 28.05.2006 19:27

Одно из отличий Delphi 8 от Delphi 7 - это то, что

Цитата
Запрещены типизированные и нетипизированные файлы. Безопасный код может использовать только текстовые файлы типа FileVar: TextFile. Для работы с не текстовыми файлами рекомендуется использовать объекты класса TFileStream.