home   |   А-Я   |   A-Z   |   меню



Копирование методом потока

Procedure FileCopy(Const SourceFileName, TargetFileName: String);

Var

 S,T : TFileStream;

Begin

 S := TFileStream.Create(sourcefilename, fmOpenRead );

 try

  T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);

  try

   T.CopyFrom(S, S.Size ) ;

   FileSetDate(T.Handle, FileGetDate(S.Handle));

  finally

   T.Free;

  end;

 finally

  S.Free;

 end;

end;


Копирование методом TurboPascal | Виртуальная библиотека Delphi | Копирование методом LZExpand