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

Timestamp:

Oct 28, 2010, 9:44:09 PM (14 years ago)

Author:

george

Message:

• Added: Specialized class TListChar aka TString.

File:

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

Generics/TemplateGenerics/Generic/ListImplementation.tpl

@@ -303 +303 @@
   I := Index;
   while I < (Index + Count) do begin
-    Delete(I);
+    Delete(Index);
     I := I + 1;
   end;