Changeset 34 for trunk/UContact.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/UContact.pas (modified) (2 diffs)

trunk/UContact.pas

@@ -302 +302 @@
   I: Integer;
 begin
-  List.Clear;
+  while List.Count > Count do List.Delete(List.Count - 1);
+  while List.Count < Count do List.Add(nil);
   for I := 0 to Count - 1 do
-    List.Add(Items[I]);
+    List[I] := Items[I];
 end;
 
@@ -425 +426 @@
 
 procedure TContact.Assign(Source: TContact);
-begin
-  Properties.Assign(Source.Properties);
+var
+  I: Integer;
+begin
+  while Properties.Count < Source.Properties.Count do
+    Properties.Add(TContactProperty.Create);
+  while Properties.Count > Source.Properties.Count do
+    Properties.Delete(Properties.Count - 1);
+  for I := 0 to Properties.Count - 1 do
+    Properties[I].Assign(Source.Properties[I]);
 end;