Changeset 133 for trunk/Packages/VCard

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/Packages/VCard/UVCard.pas (modified) (2 diffs)

trunk/Packages/VCard/UVCard.pas

@@ -209 +209 @@
     procedure Merge(Contact: TContact; FieldIndex: TContactFieldIndex);
     function ToString: ansistring; override;
-    procedure RemoveExactDuplicates;
+    function RemoveExactDuplicates: Integer;
     procedure Sort;
   end;
@@ -1242 +1242 @@
 end;
 
-procedure TContacts.RemoveExactDuplicates;
+function TContacts.RemoveExactDuplicates: Integer;
 var
   I: Integer;
   J: Integer;
 begin
+  Result := 0;
   for I := 0 to Count - 1 do
     for J := Count - 1 downto I + 1 do
       if Items[I].CompareTo(Items[J]) then begin
         Remove(Items[J]);
+        Inc(Result);
       end;
 end;