paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use a TObject constraint for TFPGObjectList and TFPGObjectMap to ensure that only TObject and its descendants

Browse Source 
are used (allows for a better error message)

git-svn-id: trunk@39363 -
This commit is contained in:
svenbarth 2018-07-03 18:34:41 +00:00
parent fdc896ad0a
commit ddb501bddf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/fgl.pp
View File

@ -153,7 +153,7 @@ type
property List: PTypeList read GetList; property List: PTypeList read GetList;
end; end;
generic TFPGObjectList<T> = class(TFPSList) generic TFPGObjectList<T: TObject> = class(TFPSList)
private private
type type
TCompareFunc = function(const Item1, Item2: T): Integer; TCompareFunc = function(const Item1, Item2: T): Integer;
@ -330,7 +330,7 @@ type
property OnDataCompare: TDataCompareFunc read FOnDataCompare write SetOnDataCompare; property OnDataCompare: TDataCompareFunc read FOnDataCompare write SetOnDataCompare;
end; end;
generic TFPGMapObject<TKey, TData> = class(TFPSMap) generic TFPGMapObject<TKey; TData: TObject> = class(TFPSMap)
private private
type type
TKeyCompareFunc = function(const Key1, Key2: TKey): Integer; TKeyCompareFunc = function(const Key1, Key2: TKey): Integer;