Parcourir la source

* System.Types for Delphi code

Michaël Van Canneyt il y a 10 mois
Parent
commit
0ca0990e8b
1 fichiers modifiés avec 4 ajouts et 1 suppressions
  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('');