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

Timestamp:

Jun 6, 2023, 11:15:57 AM (18 months ago)

Author:

chronos

Message:

• Added: New file compare dialog with additional normalize options.
• Modified: Compare action uses external compare tool.

File:

• trunk/Packages/Common/DataFile.pas (modified) (1 diff)

trunk/Packages/Common/DataFile.pas

@@ -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;