paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-11 09:39:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Observe doclear

Browse Source 
git-svn-id: trunk@43416 -
This commit is contained in:
michael 2019-11-08 09:31:45 +00:00
parent e578477334
commit f622f58b04
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/classes/stringl.inc
View File

@ -534,7 +534,8 @@ begin
QuoteChars in the string must be repeated to distinguish them from the QuoteChars enclosing the string. QuoteChars in the string must be repeated to distinguish them from the QuoteChars enclosing the string.
} }
try try
Clear; if DoClear then
Clear;
len:=length(AValue); len:=length(AValue);
If aStrictDelimiter then If aStrictDelimiter then
begin begin