diff --git a/rtl/objpas/classes/parser.inc b/rtl/objpas/classes/parser.inc index 29e5e3a9fc..72677846f2 100644 --- a/rtl/objpas/classes/parser.inc +++ b/rtl/objpas/classes/parser.inc @@ -445,7 +445,7 @@ begin '$' : HandleHexNumber; '-' : HandleMinus; '0'..'9' : HandleNumber; - '''','#' : HandleString + '''','#' : HandleString; else HandleUnknown; end; @@ -494,7 +494,7 @@ begin toWString : Result:=string(fLastTokenWStr); toFloat : if fFloatType<>#0 then Result:=fLastTokenStr+fFloatType - else Result:=fLastTokenStr + else Result:=fLastTokenStr; else Result:=fLastTokenStr; end;