* Fixed assign

git-svn-id: trunk@11834 -

packages/paszlib/src/zipper.pp

@@ -266,6 +266,7 @@ Type
   Protected
     Property HdrPos : Longint Read FHeaderPos Write FheaderPos;
   Public
+    Procedure Assign(Source : TPersistent); override;
     Property Stream : TStream Read FStream Write FStream;
   Published
     Property ArchiveFileName : String Read GetArchiveFileName Write FArchiveFileName;
@@ -1557,6 +1558,25 @@ begin
     Result:=FDiskFileName;
 end;
 
+procedure TZipFileEntry.Assign(Source: TPersistent);
+
+Var
+  Z : TZipFileEntry;
+
+begin
+  if Source is TZipFileEntry then
+    begin
+    Z:=Source as TZipFileEntry;
+    FArchiveFileName:=Z.FArchiveFileName;
+    FDiskFileName:=Z.FDiskFileName;
+    FSize:=Z.FSize;
+    FDateTime:=Z.FDateTime;
+    FStream:=Z.FStream;
+    end
+  else
+    inherited Assign(Source);
+end;
+
 { TZipFileEntries }
 
 function TZipFileEntries.GetZ(AIndex : Integer): TZipFileEntry;