Changeset 342 for trunk/ItemList.pas

Timestamp:

Dec 22, 2024, 10:52:26 AM (10 hours ago)

Author:

chronos

Message:

• Added: More tests.

File:

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

trunk/ItemList.pas

@@ -41 +41 @@
   private
     procedure AssignValue(Source: TItem; Field: TItemField);
+    function CompareValue(Item: TItem; Field: TItemField): Boolean;
     procedure LoadValueFromNode(Node: TDOMNode; Field: TItemField); virtual;
     procedure SaveValueToNode(Node: TDOMNode; Field: TItemField); virtual;
@@ -64 +65 @@
     procedure SetValueReference(Index: Integer; Value: TItem);
     procedure Assign(Source: TItem); virtual;
+    function Compare(Item: TItem): Boolean; virtual;
+    function ToString: string; override;
     procedure LoadFromNode(Node: TDOMNode); virtual;
     procedure SaveToNode(Node: TDOMNode); virtual;
@@ -88 +91 @@
     function FindByName(Name: string): TItem;
     function GetNewId: Integer;
+    function ToString: string; override;
     procedure Assign(Source: TItemList); virtual;
+    function Compare(ItemList: TItemList): Boolean; virtual;
     function AddItem(Name: string = ''): TItem; virtual;
     function CreateItem(Name: string = ''): TItem; virtual;
@@ -150 +155 @@
 end;
 
+function TItemList.Compare(ItemList: TItemList): Boolean;
+var
+  I: Integer;
+begin
+  Result := Count = ItemList.Count;
+  if not Result then Exit;
+  for I := 0 to Count - 1 do begin
+    Result := Result and TItem(Items[I]).Compare(ItemList.Items[I]);
+    if not Result then Break;
+  end;
+end;
+
 function TItemList.AddItem(Name: string): TItem;
 begin
@@ -269 +286 @@
 end;
 
+function TItemList.ToString: string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to Count - 1 do
+  with TItem(Items[I]) do begin
+    Result := Result + ToString + LineEnding;
+  end;
+end;
+
 { TItemFields }
 
@@ -312 +340 @@
   if Field.DataType = dtReference then begin
     SetValueReference(Field.Index, Source.GetValueReference(Field.Index));
+  end else
+    raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
+end;
+
+function TItem.CompareValue(Item: TItem; Field: TItemField): Boolean;
+begin
+  if Field.DataType = dtString then begin
+    Result := GetValueString(Field.Index) = Item.GetValueString(Field.Index);
+  end else
+  if Field.DataType = dtColor then begin
+    Result := GetValueColor(Field.Index) = Item.GetValueColor(Field.Index);
+  end else
+  if Field.DataType = dtInteger then begin
+    Result := GetValueInteger(Field.Index) = Item.GetValueInteger(Field.Index);
+  end else
+  if Field.DataType = dtBoolean then begin
+    Result := GetValueBoolean(Field.Index) = Item.GetValueBoolean(Field.Index);
+  end else
+  if Field.DataType = dtEnumeration then begin
+    Result := GetValueEnumeration(Field.Index) = Item.GetValueEnumeration(Field.Index);
+  end else
+  if Field.DataType = dtReference then begin
+    Result := GetValueReference(Field.Index) = Item.GetValueReference(Field.Index);
   end else
     raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[Field.DataType]]));
@@ -503 +554 @@
 end;
 
+function TItem.Compare(Item: TItem): Boolean;
+var
+  I: Integer;
+  Fields: TItemFields;
+begin
+  Result := True;
+  Result := Result and (Id = Item.Id);
+  if Item is ClassType then begin
+    Fields := GetFields;
+    try
+      for I := 0 to Fields.Count - 1 do begin
+        Result := Result and CompareValue(Item, Fields[I]);
+        if not Result then Break;
+      end;
+    finally
+      Fields.Free;
+    end;
+  end;
+end;
+
+function TItem.ToString: string;
+var
+  Fields: TItemFields;
+  I: Integer;
+begin
+  Result := 'Id: ' + IntToStr(Id) + LineEnding;
+  Fields := GetFields;
+  try
+    for I := 0 to Fields.Count - 1 do begin
+      Result := Result + Fields[I].SysName + ': ' + GetValueAsText(Fields[I].Index) + LineEnding;
+    end;
+  finally
+    Fields.Free;
+  end;
+end;
+
 procedure TItem.LoadFromNode(Node: TDOMNode);
 var