Changeset 584 for Common/ItemList.pas

Timestamp:

Jan 17, 2025, 8:00:49 AM (12 days ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• Common/ItemList.pas (modified) (12 diffs)

Common/ItemList.pas

@@ -83 +83 @@
   public
   type
-    TAddEvent = function (constref AValue: TItem): SizeInt of object;
+    TAddEvent = function(constref AValue: TItem): SizeInt of object;
     TGetCountEvent = function: SizeInt of object;
     TSetItemEvent = procedure(Index: SizeInt; AValue: TItem) of object;
-    TGetNameEvent = procedure (out Name: string) of object;
+    TGetNameEvent = procedure(out Name: string) of object;
     TGetItemEvent = function(Index: SizeInt): TItem of object;
     TGetItemFieldsEvent = function: TItemFields of object;
     TRemoveEvent = function(constref AValue: TItem): SizeInt of object;
-    TGetNextAvailableNameEvent = procedure (Name: string; out NewName: string) of object;
+    TGetNextAvailableNameEvent = procedure(Name: string; out NewName: string) of object;
     TCreateItemEvent = function(Name: string = ''): TItem of object;
+    TFindByIdEvent = function(Id: Integer): TItem of object;
   private
     FOnAdd: TAddEvent;
     FOnCreateItem: TCreateItemEvent;
+    FOnFindById: TFindByIdEvent;
     FOnGetCount: TGetCountEvent;
     FOnGetItem: TGetItemEvent;
@@ -112 +114 @@
     function GetNextAvailableName(Name: string): string;
     function GetItemFields: TItemFields;
+    function FindById(Id: Integer): TItem;
     property Count: SizeInt read GetCount;
     property Items[Index: SizeInt]: TItem read GetItem write SetItem; default;
@@ -125 +128 @@
     property OnCreateItem: TCreateItemEvent read FOnCreateItem
       write FOnCreateItem;
+    property OnFindById: TFindByIdEvent read FOnFindById
+      write FOnFindById;
   end;
 
@@ -133 +138 @@
     FBaseItemList: TBaseItemList;
     procedure RecalculateNewId(Reset: Boolean);
-    procedure RecalculateItemsId;
     function BaseGetItem(Index: SizeInt): TItem;
     procedure BaseSetItem(Index: SizeInt; AValue: TItem);
@@ -142 +146 @@
     function BaseGetItemFields: TItemFields;
     function BaseCreateItem(Name: string = ''): TItem;
+    function BaseFindById(Id: Integer): TItem;
     procedure BaseGetNextAvailableName(Name: string; out NewName: string);
   public
     NewId: Integer;
+    procedure RecalculateItemsId;
     function CreateItem(Name: string = ''): T; virtual;
     function IncrementName(Name: string): string;
@@ -245 +251 @@
 end;
 
+function TItemList<T>.BaseFindById(Id: Integer): TItem;
+begin
+  Result := FindById(Id);
+end;
+
 procedure TItemList<T>.LoadFromNode(Node: TDOMNode);
 var
@@ -265 +276 @@
   NewNode2: TDOMNode;
 begin
-  RecalculateItemsId;
   for I := 0 to Count - 1 do
   with TItem(Items[I]) do begin
@@ -287 +297 @@
   FBaseItemList.OnGetNextAvailableName := BaseGetNextAvailableName;
   FBaseItemList.OnGetName := BaseGetName;
+  FBaseItemList.OnFindById := BaseFindById;
   NewId := 1;
 end;
@@ -368 +379 @@
   NewName: string);
 begin
-  NewName := Name;
+  NewName := Name + ' 1';
   while Assigned(FindByName(NewName)) do
     NewName := IncrementName(NewName);
@@ -484 +495 @@
   ReadId: Integer;
   ReferenceList: TBaseItemList;
+  RefItem: TItem;
 begin
   if Field.DataType = dtString then begin
@@ -503 +515 @@
     ReadId := ReadInteger(Node, Field.SysName, 0);
     ReferenceList := GetReferenceList(Field.Index);
-    if (ReadId > 0) and Assigned(ReferenceList) then
-      SetValueReference(Field.Index, TItem(ReferenceList[ReadId]));
+    if (ReadId > 0) and Assigned(ReferenceList) then begin
+      RefItem := ReferenceList.FindById(ReadId);
+      if Assigned(RefItem) then
+        SetValueReference(Field.Index, RefItem)
+        else raise Exception.Create('Reference id ' + IntToStr(ReadId) + ' not found.');
+    end;
   end else
     raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
@@ -818 +834 @@
 end;
 
+function TBaseItemList.FindById(Id: Integer): TItem;
+begin
+  if Assigned(FOnFindById) then Result := FOnFindById(Id)
+    else raise Exception.Create('Undefined FindById handler');
+end;
+
 end.