Delphi уроци - Копиране на файлове в Delphi

Здравейте, днес ще ви покажа няколко начина за копиране на файлове в delphi, разбира се, можете да изберете кой да използвате във вашите програми. Така че да тръгваме

Номер на метода ПЪТИ

За да го приложим, трябва да създадем малка процедура, така че след ключовата дума private да напишем следния код:

процедура MyFileCopy(Const SourceFileName, TargetFileName: String);

Натиснете Ctrl + Shift + C както винаги Delphi ще генерира празно място за нашата процедура, вижте какво получих и добавете липсващите редове за себе си

процедура MyFileCopy(Const SourceFileName, TargetFileName: String);var A,F : TFileStream;begin A := TFileStream.Create(sourcefilename, fmOpenRead);опитайте F := TFileStream.Create(targetfilename, fmOpenWrite или fmCreate);опитайте F.CopyFrom(A, A.Size ) ; FileSetDate(F.Handle, FileGetDate(A.Handle));накрая F.Free;край ;накрая A.Free;край; край;

Копирането тук става чрез създаване на поток, ето пример за използване на тази процедура:

Метод номер две

За да го приложите, не е необходимо да се създават процедури и според мен този метод е най-лесният: Пример за използване:

CopyFile(Pchar( 'D:\index.txt'), Pchar( 'D:\1\1.txt' ), true)

Това е всичко, което ще срещнем в следващите уроци! Между другото, момчета, някой от вас инсталирал ли е вече ново ubuntu, казват, че е по-бързо от предишната си версия?

---