paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 20:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

utils: use fpc 2.6.2 compatible code

Browse Source 
git-svn-id: trunk@26489 -
This commit is contained in:
paul 2014-01-17 10:44:24 +00:00
parent 767a0f1187
commit 1f83117f16
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/rstconv.pp
View File

@ -121,8 +121,8 @@ procedure ReadRSJFile;
var
Stream: TFileStream;
Parser: TJSONParser;
JsonData, JsonItems: TJSONData;
JsonItem: TJSONObject;
JsonItems: TJSONArray;
JsonData, JsonItem: TJSONObject;
S: String;
item: TConstItem;
DotPos, I: Integer;
@ -130,9 +130,9 @@ begin
Stream := TFileStream.Create(InFilename, fmOpenRead or fmShareDenyNone);
Parser := TJSONParser.Create(Stream);
try
JsonData := Parser.Parse;
JsonData := Parser.Parse as TJSONObject;
try
JsonItems := JsonData.GetPath('strings');
JsonItems := JsonData.Arrays['strings'];
for I := 0 to JsonItems.Count - 1 do
begin
item := TConstItem(ConstItems.Add);