Недавно я перешёл с 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.
{$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.