Changeset 73 for Generics/TemplateGenerics/Generic

Timestamp:

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

Author:

george

Message:

• Added: Generic Queue and Stack classes.

Location:

Generics/TemplateGenerics/Generic

Files:

• DictionaryImplementation.tpl (modified) (1 diff)
• ListImplementation.tpl (modified) (1 diff)
• QueueImplementation.tpl (added)
• QueueInterface.tpl (added)
• StackImplementation.tpl (added)
• StackInterface.tpl (added)

Generics/TemplateGenerics/Generic/DictionaryImplementation.tpl

@@ -1 +1 @@
 
 {$INCLUDE 'ListImplementation.tpl'}
+
 function TGDictionary.GetKey(Index: TDictionaryIndex): TDictionaryKey;
 begin

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;