Delphi уроки: Учимся копировать файлы в Delphi

Привет сегодня я покажу тебе парочку способов копирования файлов в 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)

На этом всё встретимся в следующих уроках! Кстати ребят, а кто нибудь из вас уже ставил себе новую убунту говорят она шустрее своей предидущей версии ?

P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.

До встречи DelphiExpert.ru !!!

Похожие материалы

• Отлавливаем нажатие калавиш клавиатуры.
• Выбор лотка принтера для печати
• Уроки Delphi: DBGrid передать все значения в строке в другую форму
• Непонятные файлы. Откуда ?
• Delphi уроки: Учимся ставить ограничения

Последние из рубрики

• Delphi уроки: Динамически (программно) создаем новую форму.
• Delphi уроки - преврашаем shape в мяч
• Шпаргалка по библиотеке BASS 2.4