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

lazutils: less hints with FPC 3.0.1

Browse Source 
git-svn-id: trunk@52698 -
This commit is contained in:
mattias 2016-07-16 08:08:18 +00:00
parent 339d0f841f
commit 703f71d105
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>=30101}jsonscanner,{$ENDIF} jsonparser, fpjson; {$IF FPC_FULLVERSION>=30001}jsonscanner,{$ENDIF} jsonparser, fpjson;
type type
TStringsType = ( TStringsType = (
@ -1373,7 +1373,7 @@ var
K, L: Integer; K, L: Integer;
Data: TJSONData; Data: TJSONData;
begin begin
Parser := TJSONParser.Create(InputLines.Text{$IF FPC_FULLVERSION>=30101},jsonscanner.DefaultOptions{$ENDIF}); Parser := TJSONParser.Create(InputLines.Text{$IF FPC_FULLVERSION>=30001},jsonscanner.DefaultOptions{$ENDIF});
try try
JsonData := Parser.Parse as TJSONObject; JsonData := Parser.Parse as TJSONObject;
try try