paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed TZipFileEntry.Assign and added convenience call for TZipper.ZipFiles

Browse Source 
git-svn-id: trunk@13464 -
This commit is contained in:
michael 2009-07-26 17:47:15 +00:00
parent 5027d31c85
commit bf07cc4b9f
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/paszlib/src/zipper.pp
View File

@ -332,7 +332,9 @@ Type
Destructor Destroy;override;
Procedure ZipAllFiles; virtual;
Procedure ZipFiles(AFileName : String; FileList : TStrings);
Procedure ZipFiles(FileList : TStrings);
Procedure ZipFiles(AFileName : String; Entries : TZipFileEntries);
Procedure ZipFiles(Entries : TZipFileEntries);
Procedure Clear;
Public
Property BufferSize : LongWord Read FBufSize Write SetBufSize;
@ -1401,14 +1403,23 @@ end;
Procedure TZipper.ZipFiles(AFileName : String; FileList : TStrings);
begin
FFiles.Assign(FileList);
FFileName:=AFileName;
end;
procedure TZipper.ZipFiles(FileList: TStrings);
begin
FFiles.Assign(FileList);
ZipAllFiles;
end;
procedure TZipper.ZipFiles(AFileName: String; Entries: TZipFileEntries);
begin
FFileName:=AFileName;
ZipFiles(Entries);
end;
procedure TZipper.ZipFiles(Entries: TZipFileEntries);
begin
FEntries.Assign(Entries);
ZipAllFiles;
end;
@ -1901,6 +1912,8 @@ begin
FSize:=Z.FSize;
FDateTime:=Z.FDateTime;
FStream:=Z.FStream;
FOS:=Z.OS;
FAttributes:=Z.Attributes;
end
else
inherited Assign(Source);