Чтение из открытого файла 2

Delphi , Файловая система , Файлы

Автор: Vit
WEB-сайт: http://forum.vingrad.ru

var
  b: string[15];
begin
  with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do
  try
    read(b, 14);
    showmessage(b);
  finally
    Free;
  end;
end;

Статья Чтение из открытого файла 2 раздела Файловая система Файлы может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Файлы ::