Changeset 134 for trunk/UVCardFile.pas

Timestamp:

Apr 10, 2022, 1:54:34 PM (3 years ago)

Author:

chronos

Message:

• Modified: UDataFile unit moved into Common package and TDataFile class made TComponent descendant.

File:

• trunk/UVCardFile.pas (modified) (2 diffs)

trunk/UVCardFile.pas

@@ -19 +19 @@
     procedure SaveToFile(FileName: string); override;
     procedure LoadFromFile(FileName: string); override;
-    procedure Assign(Source: TVCardFile);
-    constructor Create; override;
+    procedure Assign(Source: TPersistent); override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -64 +64 @@
 end;
 
-procedure TVCardFile.Assign(Source: TVCardFile);
+procedure TVCardFile.Assign(Source: TPersistent);
 begin
-  inherited Assign(Source);
-  VCard.Assign(Source.VCard);
+  inherited;
+  if Source is TVCardFile then
+    VCard.Assign(TVCardFile(Source).VCard);
 end;
 
-constructor TVCardFile.Create;
+constructor TVCardFile.Create(AOwner: TComponent);
 begin
   inherited;