EnterCode - Сайт посвященный программированию

Как известно, в Delphi нет функции копирования файлов. Для этих целей применяется способ чтения данных из файла. Ниже приведен код копирования одного файла в другой. Для реализации этого кода Вам понадобятся два текстовых поля для ввода путей к файлам (Edit), командная кнопка и поле для вывода информации (Memo).
Приведенный код легко читаем и снабжен большим количеством информативных комментариев.

procedure TForm1.Button1Click(Sender: TObject);
 var
  ishFile, itogFile: File;
  _Read,_Write: Integer;
  totRead, totWrite: Integer;
  mas: array[1..4096] of char;
  ishName, itogName: string;
begin
  ishName:= Edit1.Text;  // путь к исходному (копируемому) файлу
  itogName:= Edit2.Text; // путь к итоговому (скопированному) файлу
  memo1.Clear; // очистка информационного поля

  if (ishName<>'') and (itogName<>'') then
   begin
    try // обработчик ошибок
     AssignFile(ishFile,ishName);   //  привязывание переменных к файлам
     AssignFile(itogFile,itogName);

     Reset(ishFile,1); //  открытие исходного файла на чтение
     ReWrite(itogFile,1); // создание итогового файла (или если он существует - его перезапись)
     Memo1.Lines.Add('Копируется файл ' + ishName + ' в файл ' + itogName);
     Memo1.Lines.Add('');

     totRead:=0;
     totWrite:=0;

     //  копирование...
     Repeat
      BlockRead(ishFile, mas, SizeOf(mas), _Read);
      BlockWrite(itogFile, mas, _Read, _Write);
      Inc(totRead, _Read);
      Inc(totwrite, _Write);
     Until  (_Read=0) or (_Write <> _Read);

     Memo1.Lines.Add('Копирование файла успешно завершено!:)');
     CloseFile(ishFile);  // закрытие файлов
     CloseFile(itogFile);
    except  // если ошибка...
     Memo1.Lines.Add('Ошибка копирования файла!:(');
    end;
  end;  
end;

Помимо приведенного "Учебного" примера, существует еще несколько способов копирования при помощи подключаемых модулей Delphi. Приведем пример копирования при помощи модуля LZExpand, реализованного в виде процедуры: