From 3722c820c9b9cd4464c4892a29e1661088030c0a Mon Sep 17 00:00:00 2001 From: michael Date: Wed, 2 Sep 2020 21:37:44 +0000 Subject: [PATCH] * Fix bug #37592, improved error message readability git-svn-id: trunk@46753 - --- packages/fcl-json/src/jsonreader.pp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/packages/fcl-json/src/jsonreader.pp b/packages/fcl-json/src/jsonreader.pp index 384d491561..bd1b601922 100644 --- a/packages/fcl-json/src/jsonreader.pp +++ b/packages/fcl-json/src/jsonreader.pp @@ -175,9 +175,10 @@ Resourcestring SErrExpectedColon = 'Expected colon (:), got token "%s".'; //SErrEmptyElement = 'Empty element encountered.'; SErrExpectedElementName = 'Expected element name, got token "%s"'; - SExpectedCommaorBraceClose = 'Expected , or ], got token "%s".'; + SExpectedCommaorBraceClose = 'Expected comma (,) or square bracket (]), got token "%s".'; SErrInvalidNumber = 'Number is not an integer or real number: %s'; SErrNoScanner = 'No scanner. No source specified ?'; + SErrorAt = 'Error at line %d, Pos %d: '; { TBaseJSONReader } @@ -408,7 +409,7 @@ Var begin S:=Format(Msg,[CurrentTokenString]); - S:=Format('Error at line %d, Pos %d:',[FScanner.CurRow,FSCanner.CurColumn])+S; + S:=Format(SErrorAt,[FScanner.CurRow,FSCanner.CurColumn])+S; Raise EJSONParser.Create(S); end;