Changeset 336 for trunk/ItemList.pas

Timestamp:

Sep 7, 2024, 10:29:16 PM (11 days ago)

Author:

chronos

Message:

• Added: Automated tests accessible in debug mode.
• Fixed: Player units internal links.
• Fixed: List items id regeneration before game save.

File:

• trunk/ItemList.pas (modified) (5 diffs)

trunk/ItemList.pas

@@ -79 +79 @@
   private
     procedure RecalculateNewId(Reset: Boolean);
+    procedure RecalculateItemsId;
   public
     NewId: Integer;
@@ -147 +148 @@
   for I := 0 to Count - 1 do
     TItem(Items[I]).Assign(Source.Items[I]);
-  RecalculateNewId(True);
 end;
 
@@ -176 +176 @@
     Node2 := Node2.NextSibling;
   end;
-  RecalculateNewId(True);
 end;
 
@@ -184 +183 @@
   NewNode2: TDOMNode;
 begin
+  RecalculateItemsId;
   for I := 0 to Count - 1 do
   with TItem(Items[I]) do begin
@@ -207 +207 @@
     NewId := Max(NewId, Id + 1);
   end;
+end;
+
+procedure TItemList.RecalculateItemsId;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    Items[I].Id := I + 1;
+  NewId := Count + 1;
 end;