paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 22:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* System.Types for Delphi code

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-25 21:56:29 +01:00
parent 8d24a28c56
commit 0ca0990e8b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-jsonschema/src/fpjson.schema.codegen.pp
View File

@ -307,7 +307,10 @@ begin
Addln('');
Addln('interface');
Addln('');
AddLn('uses types;');
if DelphiCode then
AddLn('uses System.Types;')
else
AddLn('uses types;');
Addln('');
EnsureSection(csType);
Addln('');