Changeset 441 for Generics/TemplateGenerics/Generic

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.

Location:

Generics/TemplateGenerics/Generic

Files:

• GenericFileList.inc (modified) (3 diffs)
• GenericList.inc (modified) (4 diffs)
• GenericListObject.inc (modified) (1 diff)

Generics/TemplateGenerics/Generic/GenericFileList.inc

@@ -15 +15 @@
     procedure SetFileName(const Value: string);
     procedure SetMode(const Value: Word);
+    function GetOpenned: Boolean;
   public
     constructor Create; override;
@@ -22 +23 @@
     property FileName: string read FFileName write SetFileName;
     property Mode: Word read FMode write SetMode;
+    property Openned: Boolean read GetOpenned;
   end;
 
@@ -81 +83 @@
 end;
 
+function TGFileList.GetOpenned: Boolean;
+begin
+  Result := FHandle <> feInvalidHandle;
+end;
 
 {$UNDEF IMPLEMENTATION}

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;
 

Generics/TemplateGenerics/Generic/GenericListObject.inc

@@ -88 +88 @@
     end;
   end;
+  I := FCount;
   inherited;
+  // Nil newly allocated items
+  while I < AValue do begin
+    FItems[I] := nil;
+    I := I + 1;
+  end;
 end;