Changeset 109 for trunk/Forms/UFormContact.pas

Timestamp:

Feb 14, 2022, 5:43:30 PM (3 years ago)

Author:

chronos

Message:

• Added: Synced edit of full name and name parts.

File:

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

trunk/Forms/UFormContact.pas

@@ -735 +735 @@
 
 procedure TFormContact.EditFullNameChange(Sender: TObject);
-var
-
-  Before, First, Middle, Last, After: string;
-begin
-  Contact.FullNameToNameParts(EditFullName.Text, Before, First, Middle, Last, After);
-  UpdateEditNoOnChange(EditTitleBefore, Before);
-  UpdateEditNoOnChange(EditFirstName, First);
-  UpdateEditNoOnChange(EditMiddleName, Middle);
-  UpdateEditNoOnChange(EditLastName, Last);
-  UpdateEditNoOnChange(EditTitleAfter, After);
-  UpdateInterface;
+begin
+  with TNameDetails.Create do
+  try
+    Prefix := EditTitleBefore.Text;
+    First := EditFirstName.Text;
+    Middle := EditMiddleName.Text;
+    Last := EditLastName.Text;
+    Suffix := EditTitleAfter.Text;
+    Split(EditFullName.Text);
+    UpdateEditNoOnChange(EditTitleBefore, Prefix);
+    UpdateEditNoOnChange(EditFirstName, First);
+    UpdateEditNoOnChange(EditMiddleName, Middle);
+    UpdateEditNoOnChange(EditLastName, Last);
+    UpdateEditNoOnChange(EditTitleAfter, Suffix);
+    UpdateInterface;
+  finally
+    Free;
+  end;
 end;
 
 procedure TFormContact.NamePartChange(Sender: TObject);
 begin
-  UpdateEditNoOnChange(EditFullName, Contact.NamePartsToFullName(EditTitleBefore.Text,
-    EditFirstName.Text, EditMiddleName.Text, EditLastName.Text, EditTitleAfter.Text));
+  with TNameDetails.Create do
+  try
+    Prefix := EditTitleBefore.Text;
+    First := EditFirstName.Text;
+    Middle := EditMiddleName.Text;
+    Last := EditLastName.Text;
+    Suffix := EditTitleAfter.Text;
+    UpdateEditNoOnChange(EditFullName, GetCombined);
+  finally
+    Free;
+  end;
 end;