Постановка задачи
Разработать программу для работы с файлами. Программа должна предоставлять стандартные функции, используемые при работе с файлами: копирование, перенос, удаление.
Разработка формы
Создайте новый проект Delphi. Первым делом разработаем интерфейс программы. Рзменим некоторые свойства главной формы. Прежде всего, присвойте соответствующее значение свойству Caption (заголовок формы) — например, Работа СЃ файлами. Поскольку РѕРєРЅРѕ нашей программы должно всегда находиться поверх всех остальных РѕРєРѕРЅ, следует присвоить свойству FormStyle значение fsStayOnTop. Больше никаких свойств формы изменять РЅРµ будем.
Разместите в левом верхнем углу формы, один над другим два компонента Label (метка) категории Standard. Для верхней метки присвойте свойству Caption значение Что:, а для второй — Куда:. Рядом с метками разместите по одному компоненту Edit (поле ввода) категории Standard. Присвойте свойству Name (имя) верхнего поля значение from, а свойству Name нижнего — значение where. Свойствам from.Text и where.Text присвойте пути по умолчанию, например: c:\1.txt и d:\2.txt.
Для того чтобы не утруждать пользователя копированием или ручным вводом путей размещения файлов, воспользуемся стандартными диалоговыми окнами открытия и сохранения файлов. Диалоговом окну открытия файла соответствует компонент OpenDialog категории Dialogs, а диалоговому окну сохранения — компонент SaveDialog той же категории. Разместим эти компоненты на форме. Для удобства изменим значение свойства OpenDialog1.Name на Open1, а значение свойства SaveDialog1.Name на Save1.
Справа от полей from и where разместим кнопки вызова диалогового окна обзора (компоненты Button категории Standard). Свойству Caption этих кнопок присвойте значение Обзор или просто поставьте точки. При желании, можете изменить размеры кнопок.
Разместите на форме под полем where компонент Label категории Standard и присвойте его свойству Caption значение Размер файла:. Справа от этой метки разместите еще один компонент Label, очистив для нее свойство Caption — эта метка будет отображать размер обрабатываемого файла.
Ниже разместим две кнопки (компоненты Button), присвоим их свойствам Caption значения Копировать и Вырезать. Под этими кнопками разместим компоненты, которые будут использоваться для выбора и удаления файлов: компонент Edit для ввода пути к файлу, кнопка вызова диалогового окна обзора и кнопка для удаления файла.
Свойству Edit1.Name присвоим значение Del, а свойству Text – путь по умолчанию. Кнопку Обзор разместим справа, а кнопку Удалить файл — под полем Del.
Полученная форма должна соответствовать рис. 2.1.
Рис. 2.1. Форма Работа с файлами
Разработка программного кода
Разработаем процедуру копирования файла. Рто можно было Р±С‹ реализовать средствами WinAPI, однако РІ этом случае процедура, хотя Рё была Р±С‹ менее РіСЂРѕРјРѕР·РґРєРѕР№, оказалась Р±С‹ "привязанной" Рє системе, что для программ нежелательно, поэтому лучше воспользоваться библиотеками Delphi.
Для начала объявим нашу процедуру (назовем ее doit) как закрытый член класса формы:
type
TForm1 = class(TForm)
В ...
private
В {В Private declarations }
В procedureВ doit;
В public
В { Public declarations }
end;
Реализацию процедуры создадим в разделе implementation:
Примечание
Здесь и далее при разработке описанных в книге программ комментарии, при желании, можно не вводить. Текст, обязательный для ввода, выделен в листингах полужирным шрифтом.
procedure TForm1.doit();
var
 f1, f2: file of Byte; //Работа с первым и вторым файлом
 сор: Byte; //Для побайтового копирования
 sizez: LongInt; //Хранит размер файла
begin
 {$I-} //Отключаем директиву, которая отслеживает ошибки
 //ввода/вывода
 try //Начало блока обработки исключений
 //Связываем файловую переменную f1 с первым файлом
В В AssignFile(f1, from.Text) ;
 //Связываем файловую переменную f2 со вторым файлом
В В AssignFile(f2, where.Text);
 Reset(f1) ;  //Открываем первый файл на чтение
  sizez:= Trunc(FileSize(f1) ); //Определяем размер файла
 //Отображаем размер файла для пользователя
В В Label4.Caption:= IntToStr(sizez div 1024) + 'РљР±';
 {Создаем второй файл или перезаписываем его, если он уже существует}
В В Rewrite (f2);
В В while not Eof(f1) do
 begin //Пока не достигнут конец первого файла
  //Считываем один байт из первого файла
В В BlockRead(fl, cop, 1) ;
  //Записываем один байт во второй файл
В В BlockWrite(f2, cop, 1);
В end;
 CloseFile(f1) ; //Закрываем первый файл
  CloseFile(f2) ; //Закрываем второй файл
В finally;
 end; //Конец блока обработки исключений
 if IOResult<> 0 //Если возникла ошибка ввода-вывода
 then MessageDlg('Ошибка при копировании файла!', mtError, [mbOk],0) //сообщение об ошибке
В else begin
 {Если ошибок не было, то выводим окно об успешном окончании копирования}
 ShowMessage('Успешно скопировано! ');
В end;
end;
⇘ Различные конструкции языка Object Pascal (комментарии, операторы ветвления, обработка исключений Рё РґСЂ.) рассматриваются РІ приложении Р“.
Рта процедура будет использоваться РїСЂРё копировании Рё переносе файлов. Сначала РјС‹ открываем файлы, которые выбрал пользователь, Р° затем проверяем, РЅРµ было ли ошибок РїСЂРё РёС… открытии. Если ошибок РЅРµ было, то отображаем пользователю размер РёСЃС…РѕРґРЅРѕРіРѕ файла Рё начинаем считывать байты РёР· первого файла, записывая РёС… РІРѕ второй. Если копирование завершено Рё ошибок РїСЂРё этом РЅРµ произошло, то отображаем сообщение РѕР± успешном окончании копирования.
Процедура doit вызывается при нажатии кнопки Копировать:
procedure TForm1.Button1Click{Sender: TObject);
begin
В doit;
end;
По нажатию кнопки Вырезать должно происходить обычное копирование с последующим удалением скопированного файла:
procedure TForm1.Button5Click(Sender: TObject);
begin
 doit; //копируем
 DeleteFile(from.Text) ; //удаляем исходный файл
end;
Теперь создадим процедуры выбора и сохранения файла с помощью стандартных диалоговых окон. Для выбора первого (исходного) файла следует создать следующий обработчик события OnClick (кнопке Button2 соответствует поле from):
procedure TForm1.Button2Click(Sender: TObject);
begin
В if Open1.Execute
В then from.Text:= Open1.FileName
 else ShowMessage('Файл не был открыт');
end;
При нажатии кнопки Обзор открывается диалоговое окно выбора файла (Open1.Execute). Если в этом окне пользователь нажал кнопку Отмена (Open1.Execute = False), то сообщаем ему об этом и не выполняем никаких действий. Если пользователь выбрал файл, то копируем путь к нему в соответствующее поле ввода.
Создадим аналогичный обработчик события для выбора пути назначения при копировании первого файла (кнопке Button3 соответствует поле where):
procedure TForm1.Button3Click(Sender : TObject);
begin
В if Save1.Execute
В then where.Text:= Save1.FileName
 else ShowMessage('Вы не выбрали место длясохранения файла!');
end;
Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Теперь создадим аналогичный обработчик события OnClick для кнопки Обзор, используемой для выбора размещения удаляемого файла :
procedure TForm1.Button4Click(Sender: TObject);
begin
В if Open1.Execute
В then Del.Text:= Open1.FileName
 else ShowMessage('Файл не был открыт!');
end;
Сама кнопка Удалить выполняет при нажатии следующий код:
procedure TForm1.Button6Click(Sender: tobject);
begin
 DeleteFile(Del.Text); //удаляем файл
 if not FileExists(Del.Text) //проверяем существование файла
 then ShowMessage('Файл удален!'); //выводим сообщение
end;
Сначала мы удаляем файл, а затем проверяем, существует ли он на диске после выполнения операции удаления. Если его не существует, то выводим сообщение об успешном удалении файла. Теперь можно откомпилировать и запустить программу на выполнение. Внешний вид окна Работа с файлами в действии показан на рис. 2.2.
Рис. 2.2. Программа Работа с файлами в действии
Полный исходный код модуля
Полный код модуля программы Работа с файлами представлен в листинге 2.1.
Листинг 2.1. Модуль программы Работа с файлами
unit Unit1;
interface
uses
В Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI, Gauges;
typeВ TForm1 = class(TForm)
В from: TEdit;
В where: TEdit;
В Button1: TButton;
В Label1: TLabel;
В Label2: TLabel;
В Label3: TLabel;
В Label4: TLabel;
В Button2: TButton;
В Button3: TButton;
В Open1: TOpenDialog;
В Save1: TSaveDialog;
В Button4: TButton;
В del: TEdit;
В Button5: TButton;
В Button6: TButton;
В procedure Button1Click(Sender: TObject);
В procedure Button2Click(Sender: TObject);
В procedure Button3Click(Sender: TObject);
В procedure Button5Click(Sender: TObject);
В procedure Button4Click(Sender: TObject);
В procedure Button6Click(Sender: TObject);
private
В { Private declarations }
 procedure doit; //объявление процедуры doit
public
В {В Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure Tform1.doit();
var
 f1, f2: file of byte; //работа с первым и вторым файлом
 сор: byte; //для побайтового копирования
 sizez: longint; //хранит размер файла
begin
 {I-} {отключаем директиву, которая следит за ошибками ввода/вывода}
В try
 //связываем Файловую переменную f1 с первым файлом
В В AssignFile(f1, from.Text);
 //связываем файловую переменную f2 со вторым файлом
В В AssignFile(f2, where.Text);
 Reset(f1);  //открываем первый файл на чтение
  sizez:= Trunc(FileSize(f1)); //узнаем размер файла
  //Отображаем размер файл для пользователя}
  Label4.Caption:= IntToStr(sizez div 1024) + 'Кб’;
  {Создаем второй файл или перезаписываем его, если он уже существует}
В Rewrite(f2);
  while not Eof(f1) do begin //пока не достигнут конец первого файла
  //считываем один байт с первого файла
В В BlockRead(f1, cop, 1);
  //записываем один байт во второй файл
В В BlockWrite(f2, cop, 1);
В В end;
 CloseFile(f1);//закрываем первый файл
  CloseFile(f2);// закрываем второй файл
В finally;
В end;
 if IOResult <> 0 //Если возникла ошибка ввода-вывода
 then MessageDlg('Ошибка при копировании файла!', mtError, [mbOk] , 0) //сообщение об ошибке
В else begin
 {если ошибок не было, то выводим окно об успешном окончании копирования}
  ShowMessage('Успешно скопировано!');
В end;
end;
procedure TForm1.ButtonlClick(Sender: TObject);
begin
В doit;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
В if Open1.Execute then from.Text := Open1.FileName
 else ShowMessage('Файл не был открыт');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
В if Save1.Execute then where.Text:= Save1.FileName
 else ShowMessage(''Вы не выбрали место для сохранения файла!');
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
В doit;
 DeleteFile(from.Text); //удаляем исходный файл
end;
procedure TForm1.Button4Click(Sender: TObject);
В begin
В if Open1.Execute then del.Text:= Open1.FileName
 else ShowMessage('Файл не был выбран');
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
 DeleteFile(del.Text); //удаляем файл
В if not FileExists(del.Text)
 then //проверяем существование файла
  //выводим сообщение об успешном удалении
  ShowMessage('Файл удален!');
end;
end.
⊚ Р’СЃРµ файлы проекта Рё исполняемый файл рассмотренной программы находятся РЅР° прилагаемом Рє РєРЅРёРіРµ компакт-РґРёСЃРєРµ РІ папке Chapter_02.