paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added FreeObjects property to TFPGObjectList (as known from TObjectList in contnrs)

Browse Source 
git-svn-id: trunk@13108 -
This commit is contained in:
ivost 2009-05-06 22:50:25 +00:00
parent 8193cd175d
commit b340822af2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/fgl.pp
View File

@ -122,6 +122,7 @@ type
PT = ^T;
var protected
FOnCompare: TCompareFunc;
FFreeObjects: Boolean;
procedure CopyItem(Src, Dest: Pointer); override;
procedure Deref(Item: Pointer); override;
function Get(Index: Integer): T; {$ifdef CLASSESINLINE} inline; {$endif}
@ -129,7 +130,7 @@ type
function ItemPtrCompare(Item1, Item2: Pointer): Integer;
procedure Put(Index: Integer; const Item: T); {$ifdef CLASSESINLINE} inline; {$endif}
public
constructor Create;
constructor Create(FreeObjects: Boolean = True);
function Add(const Item: T): Integer; {$ifdef CLASSESINLINE} inline; {$endif}
function Extract(const Item: T): T; {$ifdef CLASSESINLINE} inline; {$endif}
function First: T; {$ifdef CLASSESINLINE} inline; {$endif}
@ -142,6 +143,7 @@ type
procedure Sort(Compare: TCompareFunc);
property Items[Index: Integer]: T read Get write Put; default;
property List: PTypeList read GetList;
property FreeObjects: Boolean read FFreeObjects write FFreeObjects;
end;
generic TFPGInterfacedObjectList<T> = class(TFPSList)
@ -707,9 +709,10 @@ end;
{* TFPGObjectList *}
{****************************************************************************}
constructor TFPGObjectList.Create;
constructor TFPGObjectList.Create(FreeObjects: Boolean);
begin
inherited Create;
FFreeObjects := FreeObjects;
end;
procedure TFPGObjectList.CopyItem(Src, Dest: Pointer);
@ -724,6 +727,7 @@ begin
{if TObject(Item^) is TInterfacedObject then
T(Item^)._Release
else}
if FFreeObjects then
T(Item^).Free;
end;