paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 14:39:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added CopyFile with PerserveTime parameter

Browse Source 
git-svn-id: trunk@6078 -
This commit is contained in:
vincents 2004-09-27 10:35:51 +00:00
parent 19cd43bf63
commit 1cca3f8198
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/filectrl.pp
View File

@ -187,6 +187,7 @@ function GetAllFilesMask: string;
// file actions // file actions
function ReadFileToString(const Filename: string): string; function ReadFileToString(const Filename: string): string;
function CopyFile(const SrcFilename, DestFilename: string): boolean; function CopyFile(const SrcFilename, DestFilename: string): boolean;
function CopyFile(const SrcFilename, DestFilename: string; PreserveTime: boolean): boolean;
function GetTempFilename(const Path, Prefix: string): string; function GetTempFilename(const Path, Prefix: string): string;
procedure Register; procedure Register;
@ -397,6 +398,9 @@ end.
{ {
$Log$ $Log$
Revision 1.30 2004/09/27 10:35:51 vincents
Added CopyFile with PerserveTime parameter
Revision 1.29 2004/09/01 09:43:24 mattias Revision 1.29 2004/09/01 09:43:24 mattias
implemented registration of project file types implemented registration of project file types

15
lcl/include/filectrl.inc
View File

@ -930,6 +930,16 @@ end;
function CopyFile(const SrcFilename, DestFilename: string): boolean; function CopyFile(const SrcFilename, DestFilename: string): boolean;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function CopyFile(const SrcFilename, DestFilename: string): boolean; function CopyFile(const SrcFilename, DestFilename: string): boolean;
begin
result := CopyFile(SrcFilename, DestFilename, false);
end;
{------------------------------------------------------------------------------
function CopyFile(const SrcFilename, DestFilename: string PreserveTime:
boolean): boolean;
------------------------------------------------------------------------------}
function CopyFile(const SrcFilename, DestFilename: string; PreserveTime: boolean
): boolean;
var var
SrcFS: TFileStream; SrcFS: TFileStream;
DestFS: TFileStream; DestFS: TFileStream;
@ -940,6 +950,8 @@ begin
DestFS:=TFileStream.Create(DestFilename,fmCreate); DestFS:=TFileStream.Create(DestFilename,fmCreate);
try try
DestFS.CopyFrom(SrcFS,SrcFS.Size); DestFS.CopyFrom(SrcFS,SrcFS.Size);
if PreserveTime then
FileSetDate(DestFS.Handle, FileGetDate(SrcFS.Handle));
finally finally
DestFS.Free; DestFS.Free;
end; end;
@ -1056,6 +1068,9 @@ end;
{ {
$Log$ $Log$
Revision 1.50 2004/09/27 10:35:51 vincents
Added CopyFile with PerserveTime parameter
Revision 1.49 2004/09/01 09:43:24 mattias Revision 1.49 2004/09/01 09:43:24 mattias
implemented registration of project file types implemented registration of project file types