From f622f58b045b8fc2670e94e85526effa475c1912 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 8 Nov 2019 09:31:45 +0000
Subject: [PATCH] * Observe doclear

git-svn-id: trunk@43416 -
---
 rtl/objpas/classes/stringl.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc
index 318f89b6c6..a64a41e7c4 100644
--- a/rtl/objpas/classes/stringl.inc
+++ b/rtl/objpas/classes/stringl.inc
@@ -534,7 +534,8 @@ begin
  QuoteChars in the string must be repeated to distinguish them from the QuoteChars enclosing the string.
  }
  try
-  Clear;
+  if DoClear then
+    Clear;
   len:=length(AValue);
   If aStrictDelimiter then
     begin