Changeset 120 for trunk/UDataFile.pas

Timestamp:

Feb 19, 2022, 12:09:21 AM (2 years ago)

Author:

chronos

Message:

• Added: Partially implemented contacts compare.

File:

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

trunk/UDataFile.pas

@@ -23 +23 @@
     function GetFileName: string; virtual;
     function GetFileFilter: string; virtual;
+    procedure Assign(Source: TDataFile);
     procedure LoadFromFile(FileName: string); virtual;
     procedure SaveToFile(FileName: string); virtual;
@@ -72 +73 @@
 end;
 
+procedure TDataFile.Assign(Source: TDataFile);
+begin
+  FFileName := Source.FFileName;
+  FModified := Source.FModified;
+end;
+
 procedure TDataFile.LoadFromFile(FileName: string);
 begin