Changeset 149 for trunk/Packages/Common/DataFile.pas

Timestamp:

Feb 4, 2024, 2:14:37 PM (4 months ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Added: Project group.
• Modified: Assign ModuleUser to modules which use it in later time.

File:

• trunk/Packages/Common/DataFile.pas (moved) (moved from trunk/Packages/Common/UDataFile.pas ) (3 diffs)

trunk/Packages/Common/DataFile.pas

@@ -1 @@
-unit UDataFile;
+unit DataFile;
 
 interface
@@ -77 +77 @@
 procedure TDataFile.Assign(Source: TPersistent);
 begin
-  inherited;
   if Source is TDataFile then begin
     FFileName := TDataFile(Source).FFileName;
     FModified := TDataFile(Source).FModified;
-  end;
+  end else inherited;
 end;
 
@@ -109 +108 @@
 
 end.
-