Changeset 441 for Generics/TemplateGenerics/Generic/GenericList.inc

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/Generic/GenericList.inc (modified) (4 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -39 +39 @@
     procedure SetFirst(AValue: TGListItem);
     procedure QuickSort(L, R : TGListIndex; Compare: TSortCompare);
+    procedure DoUpdate;
   protected
     procedure Put(Index: TGListIndex; const AValue: TGListItem); virtual;
@@ -109 +110 @@
 begin
   FCount := 0;
+  FUpdateCount := 0;
 end;
 
@@ -341 +343 @@
   if (Index < 0) or (Index > FCount) then
     raise EListError.CreateFmt(SListIndexError, [Index]);
-  InsertCount(Index, 1);
-  FItems[Index] := Item;
-  Update;
+  try
+    BeginUpdate;
+    InsertCount(Index, 1);
+    FItems[Index] := Item;
+  finally
+    EndUpdate;
+  end;
 end;
 
@@ -564 +570 @@
 procedure TGList.EndUpdate;
 begin
-  Dec(FUpdateCount);
-  Update;
+  if FUpdateCount > 0 then Dec(FUpdateCount);
+  if FUpdateCount = 0 then DoUpdate;
+end;
+
+procedure TGList.DoUpdate;
+begin
+  if Assigned(FOnUpdate) then FOnUpdate(Self);
 end;
 
 procedure TGList.Update;
 begin
-  if Assigned(FOnUpdate) and (FUpdateCount = 0) then FOnUpdate(Self);
+  if FUpdateCount = 0 then DoUpdate;
 end;