Changeset 52 for trunk/UCore.pas

Timestamp:

Dec 3, 2021, 8:50:43 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Wrong object reference to contact Parent after Merge files action.
• Modified: Optimized select all action.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -374 +374 @@
         if not Assigned(NewContact) then begin
           NewContact := TContact.Create;
+          NewContact.Assign(TempFile.Contacts[I]);
           NewContact.Parent := TContactsFile(DataFile);
-          NewContact.Assign(TempFile.Contacts[I]);
           TContactsFile(DataFile).Contacts.Add(NewContact);
           Inc(Result.New);