Changeset 441 for Generics/TemplateGenerics/Specialized/SpecializedList.pas

Timestamp:

Nov 19, 2012, 2:47:07 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Wrong memory inicialization in TListObject results in error during other object assignment.

File:

• Generics/TemplateGenerics/Specialized/SpecializedList.pas (modified) (3 diffs)

Generics/TemplateGenerics/Specialized/SpecializedList.pas

@@ -67 +67 @@
   procedure AddStream(Stream: TStream);
   procedure AddStreamPart(Stream: TStream; ItemCount: TGListIndex);
-  procedure WriteBuffer(var Buffer; Count: Integer);
-  procedure ReadBuffer(var Buffer; Count: Integer);
 end;
 
@@ -333 +331 @@
   I: TGListIndex;
 begin
-  I := 0;
-  while (I < Count) do begin
+  I := Count - 1;
+  while (I >= 0) do begin
     TNotifyEvent(Items[I])(Sender);
-    I := I + 1;
+    I := I - 1;
   end;
 end;
@@ -414 +412 @@
 end;
 
-procedure TListByte.WriteBuffer(var Buffer; Count: Integer);
-begin
-
-end;
-
-procedure TListByte.ReadBuffer(var Buffer; Count: Integer);
-begin
-
-end;
-
 
 end.