From dfa22fb53ad7bfcdf8d2f4d51c11544be69fde19 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 20 Feb 2024 16:11:37 +0100
Subject: [PATCH] * Add function reference version of TComparer.Construct

---
 packages/rtl-generics/src/generics.defaults.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/rtl-generics/src/generics.defaults.pas b/packages/rtl-generics/src/generics.defaults.pas
index a025b6acd1..7308da2f3e 100644
--- a/packages/rtl-generics/src/generics.defaults.pas
+++ b/packages/rtl-generics/src/generics.defaults.pas
@@ -64,6 +64,7 @@ type
 
     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: TComparison<T>): IComparer<T>; overload;
   end;
 
   TDelegatedComparerEvents<T> = class(TComparer<T>)
@@ -1105,6 +1106,11 @@ begin
   Result := TDelegatedComparerEvents<T>.Create(AComparison);
 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>;
 begin
   Result := TDelegatedComparerFunc<T>.Create(AComparison);