Changeset 17 for trunk/UContact.pas

Timestamp:

Feb 28, 2018, 12:56:11 PM (7 years ago)

Author:

chronos

Message:

• Added: New Generate contacts Tools menu action to generate multiple random contacts.

File:

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

trunk/UContact.pas

@@ -88 +88 @@
   TContacts = class(TObjectList)
     ContactsFile: TContactsFile;
+    function AddNew: TContact;
     function Search(FullName: string): TContact;
     function ToString: ansistring; override;
@@ -121 +122 @@
 
 { TContacts }
+
+function TContacts.AddNew: TContact;
+begin
+  Result := TContact.Create;
+  Result.Parent := ContactsFile;
+  Add(Result);
+end;
 
 function TContacts.Search(FullName: string): TContact;