* Fixed assign

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11834 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 20 insertions, 0 deletions

diff --git a/packages/paszlib/src/zipper.pp b/packages/paszlib/src/zipper.pp
index ac6a164118..d8607dda92 100644
--- a/packages/paszlib/src/zipper.pp
+++ b/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;