* fix adding an outputpath

git-svn-id: trunk@6482 -

fcl/inc/zipper.pp

@@ -1313,10 +1313,14 @@ Var
   Count : Longint;
   CRC : LongWord;
   ZMethod : Word;
+  OutputFileName : string;
 Begin
   Try
     ReadZipHeader(Item,CRC,ZMethod);
-    OpenOutput(FOutputPath+Item.Name);
+    OutputFileName:=Item.Name;
+    if FOutputPath<>'' then
+      OutputFileName:=IncludeTrailingPathDelimiter(FOutputPath)+OutputFileName;
+    OpenOutput(OutputFileName);  
     if ZMethod=0 then
       begin
         Count:=FOutFile.CopyFrom(FZipFile,LocalHdr.Compressed_Size);