Преглед на файлове

* System.Types for Delphi code

Michaël Van Canneyt преди 10 месеца
родител
ревизия
0ca0990e8b
променени са 1 файла, в които са добавени 4 реда и са изтрити 1 реда
  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('');