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

* TZipper.ZipFiles should zip files, got broken in r13464

Browse Source 
git-svn-id: trunk@15176 -
This commit is contained in:
joost 2010-04-25 18:15:09 +00:00
parent 94eae61a31
commit 3c42ad5e5e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1459,6 +1459,7 @@ Procedure TZipper.ZipFiles(AFileName : String; FileList : TStrings);
begin begin
FFileName:=AFileName; FFileName:=AFileName;
ZipFiles(FileList);
end; end;
procedure TZipper.ZipFiles(FileList: TStrings); procedure TZipper.ZipFiles(FileList: TStrings);