Информационный лист

Типизированные и нетипизированные файлы

<!--[if !supportLists]-->·         <!--[endif]-->Классификация файлов

Различают физические и логические файлы

Физический файл- это поименованная область памяти на каком-либо носители информации.(Содержимое файла представляет последовательность байтов закодированной информации)

Логический файл- файловая переменная структурированного типа данных, в котором описывается интерпретация содержимого физического файла(описан шаблон чтения/записи информации из физического файла).

Файловый тип- это структура, состоящая из компонент одного вида.

<!--[if gte vml 1]> <![endif]--><!--[if !vml]--><!--[endif]-->По логической структуре

<!--[if gte vml 1]> <![endif]--><!--[if !vml]-->

<!--[endif]--> 

Типизированные                                 Текстовые                          Нетипизированные

<!--[if !supportLists]-->·         <!--[endif]-->Процедуры работы с файлами:

<!--[if !supportLists]-->3.      <!--[endif]--><!--[if gte vml 1]> <![endif]--><!--[if !vml]--><!--[endif]-->Создание проекта.

<!--[if !supportLists]-->·         <!--[endif]-->Создаем новый проект. (меню Проект—Создать проект---Приложение---Создать)

<!--[if !supportLists]-->·         <!--[endif]-->Устанавливаем на форму Edit (свойство  Text—Очистить)

<!--[if !supportLists]-->·         <!--[endif]-->Установить Label, (в свойство Caption  введем: "Укажите папку для копирования файла")

<!--[if !supportLists]-->·         <!--[endif]-->Установить на форму кнопку Button , на которой пишем "Копировать файл".

<!--[if !supportLists]-->·         <!--[endif]-->C вкладки Dialogs устанавливаем на форму компонент OpenDialog.

<!--[if !supportLists]-->4.      <!--[endif]-->Листинг программы для кнопки «Копировать файл»

procedure TForm1.Button1Click(Sender: TObject);

var

fFrom, fTo : file;

colRead, colWrite : integer;

buf : array[1..2048] of char;

filename: string;

begin

 if Edit1.Text=' ' then

 begin

 showMessage('Укажите папку, куда копировать файл');

 Edit1.SetFocus;

 close;

 end;

 if not OpenDialog1.Execute then close;

 filename:=OpenDialog1.Filename;

 try

 assignFile(fFrom, filename);

 AssignFile(fTo,Edit1.Text+ExtractFileName(filename));

             reset(fFrom,1);    /открываем файл для чтения

 Rewrite(fTo,1);   /открываем файл для записи

 colRead:=0;      /обнуляем переменные

 colWrite:=0;

 while colRead=colWrite do begin

 BlockRead(fFrom,buf,SizeOf(buf),colRead);

 if ColRead=0 then break;

 BlockWrite(fTo,buf,colread,colwrite);

 end;

             closeFile(fFrom); /закрываем файлы

 closeFile(fTo);

 ShowMessage('Файл скопирован');

 finally

 end;

 end;

initialization

  {$I unit1.lrs} 

End.

ФАЙЛЫ МАТЕРИАЛА: 

урок рассчитан на 45мин, Программирование ООЯ