Changeset 383 for Generics/TemplateGenerics/Generic/GenericList.inc

Timestamp:

Jul 9, 2012, 2:35:01 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Comparison in TGList.IndexOf method doesn't work properly.

File:

• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -292 +292 @@
   Result := Start;
   while (Result < FCount) and
-  not CompareMem(@FItems[Result], @Item, SizeOf(TGListItem)) do
-//  not (CompareByte(FItems[Result], Item, SizeOf(TGListItem)) = 0) do
+//  not CompareMem(@FItems[Result], @Item, SizeOf(TGListItem)) do
+  not (CompareByte(FItems[Result], Item, SizeOf(TGListItem)) = 0) do
     Result := Result + 1;
   if Result = FCount then Result := -1;
@@ -454 +454 @@
   Result := IndexOf(Item);
   if Result <> -1 then
-    Delete(Result);
+    Delete(Result)
+    else raise Exception.CreateFmt(SItemNotFound, [0]);
 end;