Changeset 258 for Generics

Timestamp:

Jul 26, 2011, 1:05:39 PM (13 years ago)

Author:

george

Message:

• Minor modifications

File:

• Generics/TemplateGenerics/Generic/GenericListString.inc (modified) (1 diff)

Generics/TemplateGenerics/Generic/GenericListString.inc

@@ -76 +76 @@
   Result := Start;
   while (Result < Count) and
-  (CompareStr(FItems[Result], Item) = -1) do
+  (CompareStr(FItems[Result], Item) <> 0) do
     Result := Result + 1;
   if Result = FCount then Result := -1;