* Merging revisions r43416 from trunk:

    ------------------------------------------------------------------------
    r43416 | michael | 2019-11-08 10:31:45 +0100 (Fri, 08 Nov 2019) | 1 line
    
    * Observe doclear
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43744 -

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