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

* Add function reference version of TComparer.Construct

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-20 16:11:37 +01:00
parent 5c1997b3d5
commit dfa22fb53a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-generics/src/generics.defaults.pas
View File

@ -64,6 +64,7 @@ type
class function Construct(const AComparison: TOnComparison<T>): IComparer<T>; overload; class function Construct(const AComparison: TOnComparison<T>): IComparer<T>; overload;
class function Construct(const AComparison: TComparisonFunc<T>): IComparer<T>; overload; class function Construct(const AComparison: TComparisonFunc<T>): IComparer<T>; overload;
class function Construct(const AComparison: TComparison<T>): IComparer<T>; overload;
end; end;
TDelegatedComparerEvents<T> = class(TComparer<T>) TDelegatedComparerEvents<T> = class(TComparer<T>)
@ -1105,6 +1106,11 @@ begin
Result := TDelegatedComparerEvents<T>.Create(AComparison); Result := TDelegatedComparerEvents<T>.Create(AComparison);
end; end;
class function TComparer<T>.Construct(const AComparison: TComparison<T>): IComparer<T>;
begin
Result := TDelegatedComparer<T>.Create(AComparison);
end;
class function TComparer<T>.Construct(const AComparison: TComparisonFunc<T>): IComparer<T>; class function TComparer<T>.Construct(const AComparison: TComparisonFunc<T>): IComparer<T>;
begin begin
Result := TDelegatedComparerFunc<T>.Create(AComparison); Result := TDelegatedComparerFunc<T>.Create(AComparison);