Browse Source

* System.Types for Delphi code

Michaël Van Canneyt 8 months ago
parent
commit
0ca0990e8b
1 changed files with 4 additions and 1 deletions
  1. 4 1
      packages/fcl-jsonschema/src/fpjson.schema.codegen.pp

+ 4 - 1
packages/fcl-jsonschema/src/fpjson.schema.codegen.pp

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