Changeset 133 for trunk/UCore.pas

Timestamp:

Apr 10, 2022, 1:39:35 PM (3 years ago)

Author:

chronos

Message:

• Modified: Show number of removed duplicates.
• Fixed: Set document as modified only if data are really changed.

File:

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

trunk/UCore.pas

@@ -127 +127 @@
   SCombinedContacts = 'Combined %d contact files.';
   SLine = 'Line %d: %s';
+  SRemovedDuplicates = 'Removed %d duplicates.';
 
 { TCore }
@@ -298 +299 @@
 
 procedure TCore.ARemoveExactDuplicatesExecute(Sender: TObject);
-begin
-  TVCardFile(DataFile).VCard.Contacts.RemoveExactDuplicates;
-  UpdateFile;
+var
+  RemovedCount: Integer;
+begin
+  RemovedCount := TVCardFile(DataFile).VCard.Contacts.RemoveExactDuplicates;
+  ShowMessage(Format(SRemovedDuplicates, [RemovedCount]));
+  if RemovedCount > 0 then begin
+    DataFile.Modified := True;
+    UpdateFile;
+  end;
 end;