diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-08-27 07:35:51 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-08-27 07:35:51 +0000 |
commit | 4427b1084a1dfc0803051aeabe883ad96800ec1d (patch) | |
tree | 5a13cce95f792f09823bbf650df72ff9df44ef79 /rtl/objpas | |
parent | 7f3e287ddd3dfa5223057db9b4d6215b5f4dff3b (diff) | |
download | fpc-4427b1084a1dfc0803051aeabe883ad96800ec1d.tar.gz |
* Additional fix for GetDelimitedText
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46715 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/objpas')
-rw-r--r-- | rtl/objpas/classes/stringl.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/objpas/classes/stringl.inc b/rtl/objpas/classes/stringl.inc index 08c582e279..48cdf8de17 100644 --- a/rtl/objpas/classes/stringl.inc +++ b/rtl/objpas/classes/stringl.inc @@ -249,7 +249,7 @@ begin Result:=Result+Delimiter; end; // Quote empty string: - If (Length(Result)=0) and (Count=1) then + If (Length(Result)=0) and (Count=1) and (QuoteChar<>#0) then Result:=QuoteChar+QuoteChar; end; |