|
Привет сегодня я покажу тебе парочку способов копирования файлов в delphi,
выбирать какой из них использовать в своих программах конечно же вам. Итак,
поехали
Способ номер РАЗ
Для его реализации нам понадобиться создать небольшую процедуру, поэтому
после ключевого слова private пишем вот такой код:
procedure MyFileCopy(Const SourceFileName, TargetFileName: String);
Нажимаем Ctrl+Shift+C как всегда Delphi сгенерирует заготовку для нашей
процедуры, посмотри что в итоге получилось у меня и допиши недостающие строчки у
себя
procedure MyFileCopy(Const SourceFileName, TargetFileName: String);
var
A,F : TFileStream;
begin
A := TFileStream.Create(sourcefilename, fmOpenRead );
try
F := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
F.CopyFrom(A, A.Size ) ;
FileSetDate(F.Handle, FileGetDate(A.Handle));
finally
F.Free;
end;
finally
A.Free;
end;
end;
Копирование здесь происходит при помощи создания потока, вот
пример использования данной процедуры:
Myfilecopy('D:\index.htm', 'D:\1\1.html' );
Способ номер ДВА
Для его реализации, никаких процедур создавать не нужно, и на
мой взгляд этот способ самый простой:
Пример использования:
CopyFile(Pchar('D:\index.txt'), Pchar('D:\1\1.txt'), true)
На этом всё встретимся в следующих уроках!
| 
