Рис. 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 с первым файлом