Changeset 16 for trunk/UContact.pas

Timestamp:

Feb 28, 2018, 9:44:51 AM (7 years ago)

Author:

chronos

Message:

• Added: New Tools action Find duplicates.

File:

• trunk/UContact.pas (modified) (4 diffs)

trunk/UContact.pas

@@ -35 +35 @@
     function AddNew(Name: string; Index: TContactFieldIndex; DataType:
       TDataType): TContactField;
+    procedure LoadToStrings(AItems: TStrings);
   end;
 
@@ -88 +89 @@
     ContactsFile: TContactsFile;
     function Search(FullName: string): TContact;
+    function ToString: ansistring; override;
   end;
 
@@ -132 +134 @@
 end;
 
+function TContacts.ToString: ansistring;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to Count - 1 do begin
+    if I > 0 then Result := Result + ', ';
+    Result := Result + TContact(Items[I]).FullName;
+  end;
+end;
+
 { TContactFields }
 
@@ -142 +155 @@
   Result.DataType := DataType;
   Add(Result);
+end;
+
+procedure TContactFields.LoadToStrings(AItems: TStrings);
+var
+  I: Integer;
+begin
+  while AItems.Count < Count do AItems.Add('');
+  while AItems.Count > Count do AItems.Delete(AItems.Count - 1);
+  for I := 0 to Count - 1 do
+    AItems[I] := TContactField(Items[I]).Name;
 end;