Changeset 7 for os/trunk/Xvcl/Xvcl.Generics.pas

Timestamp:

Jun 2, 2013, 6:59:07 PM (11 years ago)

Author:

chronos

Message:

• Fixed: Components now have list of childs and free them on destruction.
• Fixed: Memory leaks.

File:

• os/trunk/Xvcl/Xvcl.Generics.pas (modified) (3 diffs)

os/trunk/Xvcl/Xvcl.Generics.pas

@@ -33 +33 @@
     function Compare(Item1, Item2: T): Integer;
     procedure Exchange(Index1, Index2: Integer);
+    procedure Clear;
     property Count: Integer read FCount write SetCount;
     property Items[Index: Integer]: T read GetItem write SetItem; default;
+  end;
+
+  TObjectList<T: class> = class(TList<T>)
+    OwnsObjects: Boolean;
+    constructor Create; virtual;
+    destructor Destroy; override;
   end;
 
@@ -61 +68 @@
   FItems[Count - 1] := Item;
   Result := Count - 1;
+end;
+
+procedure TList<T>.Clear;
+begin
+  Count := 0;
 end;
 
@@ -149 +161 @@
 end;
 
+{ TObjectList<T> }
+
+constructor TObjectList<T>.Create;
+begin
+  OwnsObjects := True;
+end;
+
+destructor TObjectList<T>.Destroy;
+var
+  I: Integer;
+begin
+  if OwnsObjects then
+  for I := 0 to Count - 1 do
+    TObject(FItems[I]).Destroy;
+  Clear;
+  inherited;
+end;
+
 end.