From b76535ebe49fcf631bd344684e0929bcba23a5cf Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Mon, 18 Apr 2022 21:23:10 +0200
Subject: [PATCH] * TStringlist constructor with ownsobjects parameter, Delphi
 compatible + empty constructor to avoid compiler getting confused

(cherry picked from commit 24570166711ac268f6fb55ad6f08d775ce686356)
---
 rtl/objpas/classes/classesh.inc |  3 ++-
 rtl/objpas/classes/stringl.inc  | 10 ++++++++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 79b93f79be..e2d7748eee 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -849,8 +849,9 @@ type
     procedure InsertItem(Index: Integer; const S: string); virtual;
     procedure InsertItem(Index: Integer; const S: string; O: TObject); virtual;
     Function DoCompareText(const s1,s2 : string) : PtrInt; override;
-
   public
+    Constructor Create;
+    Constructor Create(anOwnsObjects : Boolean);
     destructor Destroy; override;
     function Add(const S: string): Integer; override;
     procedure Clear; override;
diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 290c043109..e009120109 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -1930,6 +1930,16 @@ begin
 end;
 
 
+Constructor TStringList.Create;
+begin
+  inherited Create;  
+end;
+
+Constructor TStringList.Create(anOwnsObjects : Boolean);
+begin
+  inherited Create;
+  FOwnsObjects:=anOwnsObjects; 
+end;
 
 destructor TStringList.Destroy;