Changeset 100 for trunk/Packages/TemplateGenerics

Timestamp:

Oct 2, 2012, 2:52:20 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: V balíčku CoolWeb některé seznamy změněny z typu TStringList na TListString.

File:

• trunk/Packages/TemplateGenerics/Generic/GenericDictionary.inc (modified) (1 diff)

trunk/Packages/TemplateGenerics/Generic/GenericDictionary.inc

@@ -99 +99 @@
     Result := Result + 1;
   end;
+  if Result >= Count then Result := -1;
 end;