Changeset 34 for trunk/UCore.pas

Timestamp:

Nov 25, 2021, 1:51:20 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Memory allocation during files merge.
• Fixed: Select all context menu action was not selecting all items.
• Modified: Statusbar moved into contacts form and it is now showin total, filtered and selected number of items.

File:

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

trunk/UCore.pas

@@ -364 +364 @@
       Result.Loaded := TempFile.Contacts.Count;
       for I := 0 to TempFile.Contacts.Count - 1 do begin
-        NewContact := TContactsFile(DataFile).Contacts.Search(TContact(TempFile.Contacts[I]).Fields[cfFullName]);
+        NewContact := TContactsFile(DataFile).Contacts.Search(TempFile.Contacts[I].Fields[cfFullName]);
         if not Assigned(NewContact) then begin
           NewContact := TContact.Create;
           NewContact.Parent := TContactsFile(DataFile);
-          NewContact.Assign(TContact(TempFile.Contacts[I]));
+          NewContact.Assign(TempFile.Contacts[I]);
           TContactsFile(DataFile).Contacts.Add(NewContact);
           Inc(Result.New);
         end else begin
-          if NewContact.UpdateFrom(TContact(TempFile.Contacts[I])) then
+          if NewContact.UpdateFrom(TempFile.Contacts[I]) then
             Inc(Result.Updated);
         end;
@@ -402 +402 @@
       else FormContacts.Contacts := nil;
     FormContacts.ReloadList;
+    FormContacts.UpdateInterface;
   end;
 end;