paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 18:39:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed compilation on fpc 3.0.1, bug #28811

Browse Source 
git-svn-id: trunk@50016 -
This commit is contained in:
mattias 2015-10-09 10:12:52 +00:00
parent 4153607ab7
commit 7b3045a013
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/translations.pas
View File

@ -88,7 +88,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, FileUtil, LazFileUtils, StringHashList, AvgLvlTree, Classes, SysUtils, LCLProc, FileUtil, LazFileUtils, StringHashList, AvgLvlTree,
LConvEncoding, LazUTF8, LazUTF8Classes, LConvEncoding, LazUTF8, LazUTF8Classes,
{$IF FPC_FULLVERSION>=20701}jsonscanner,{$ENDIF} jsonparser, fpjson; {$IF FPC_FULLVERSION>=30101}jsonscanner,{$ENDIF} jsonparser, fpjson;
type type
TStringsType = ( TStringsType = (
@ -1178,7 +1178,7 @@ var
K, L: Integer; K, L: Integer;
Data: TJSONData; Data: TJSONData;
begin begin
Parser := TJSONParser.Create(InputLines.Text{$IF FPC_FULLVERSION>=20701},jsonscanner.DefaultOptions{$ENDIF}); Parser := TJSONParser.Create(InputLines.Text{$IF FPC_FULLVERSION>=30101},jsonscanner.DefaultOptions{$ENDIF});
try try
JsonData := Parser.Parse as TJSONObject; JsonData := Parser.Parse as TJSONObject;
try try