Сергей Парижский: Delphi. Учимся на примерах

//ввода/вывода

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.