Changeset 73 for Generics/TemplateGenerics/Generic/ListImplementation.tpl

Timestamp:

Oct 28, 2010, 5:41:05 PM (14 years ago)

Author:

george

Message:

• Added: Generic Queue and Stack classes.

File:

• Generics/TemplateGenerics/Generic/ListImplementation.tpl (modified) (1 diff)

Generics/TemplateGenerics/Generic/ListImplementation.tpl

@@ -118 +118 @@
 begin
   Result := 0;
-  while (Result < FCount) and CompareMem(Addr(FItems[Result]), Addr(Item), SizeOf(TListItem)) do
+  while (Result < FCount) and
+  not CompareMem(Addr(FItems[Result]), Addr(Item), SizeOf(TListItem)) do
     Result := Result + 1;
   if Result = FCount then Result := -1;