Home

Page 125
Page 125
background image

 Глава 3

if

 =

 then

 Destination +

 {FileName}

else

Destination := Destination +

 +

end;

 ;

try

 файл-источник

if Source < 0 then

raise

 [FileName]);

try

Dest

 //Создать файл-приемник

if Dest < 0 then

raise

try

repeat

//Считать порцию

if

 > 0 then //Если порция считана, то...

//Записать ее в файл-приемник

 BytesCopied);

until BytesCopied < ChunkSize;

finally

 ;

end;

 ;

end;

 ChunkSize);

end;

end;

Процесс копирования очень прост. Процедура получает два имени файла:

откуда копировать, и куда. После этого происходит проверка. Если в качест-
ве второго параметра (путь к файлу, в который надо скопировать) указана
только директория без имени файла, то программа подставляет в качестве
имени файла имя источника.

После этого

 источника открывается для чтения данных с запретом на

запись со стороны других программ. Открыв источник, процедура создает


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.