IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Нетипизированные файлы в Delphi 8, Проблеммы с работой нетипизированных файлов в Delphi 8
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Здравствуйте.....
Недавно я перешёл с 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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Одно из отличий Delphi 8 от Delphi 7 - это то, что
Цитата
Запрещены типизированные и нетипизированные файлы. Безопасный код может использовать только текстовые файлы типа FileVar: TextFile. Для работы с не текстовыми файлами рекомендуется использовать объекты класса TFileStream.
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.08.2017 9:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"