mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:19:33 +02:00
* TZipper.ZipFiles should zip files, got broken in r13464
git-svn-id: trunk@15176 -
This commit is contained in:
parent
94eae61a31
commit
3c42ad5e5e
@ -1459,6 +1459,7 @@ Procedure TZipper.ZipFiles(AFileName : String; FileList : TStrings);
|
||||
|
||||
begin
|
||||
FFileName:=AFileName;
|
||||
ZipFiles(FileList);
|
||||
end;
|
||||
|
||||
procedure TZipper.ZipFiles(FileList: TStrings);
|
||||
|
Loading…
Reference in New Issue
Block a user