Changeset 18 for trunk/Forms/UFormGenerate.pas

Timestamp:

Feb 28, 2018, 1:43:45 PM (7 years ago)

Author:

chronos

Message:

• Added: From Find duplicities form it is possible to open the list of duplicit contacts for further modification/addition/removal.

File:

• trunk/Forms/UFormGenerate.pas (modified) (1 diff)

trunk/Forms/UFormGenerate.pas

@@ -49 +49 @@
     Contact.FirstName := 'First ' + IntToStr(Random(10000));
     Contact.LastName := 'Last ' + IntToStr(Random(10000));
-    Contact.FullName := Contact.FirstName + ' ' + Contact.LastName;
+    Contact.FullName := 'FullName ' + IntToStr(Random(100));
     Contact.TelCell := IntToStr(Random(1000000000));
     Contact.TelHome := IntToStr(Random(1000000000));