Changeset 353

Timestamp:

Dec 28, 2024, 10:35:15 PM (21 hours ago)

Author:

chronos

Message:

• Fixed: Missing units id recalculation before save to file.

File:

• trunk/Units.pas (modified) (3 diffs)

trunk/Units.pas

@@ -41 +41 @@
     NewId: Integer;
     Game: TObject; //TGame;
+    procedure RecalculateItemsId;
     procedure FixRefId;
     function FindById(Id: Integer): TUnit;
@@ -59 +60 @@
 { TUnits }
 
+procedure TUnits.RecalculateItemsId;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    Items[I].Id := I + 1;
+  NewId := Count + 1;
+end;
+
 procedure TUnits.FixRefId;
 var
@@ -104 +114 @@
   NewNode2: TDOMNode;
 begin
+  RecalculateItemsId;
   for I := 0 to Count - 1 do
   with Items[I] do begin