소스 검색

* 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('interface');
     Addln('');
-    AddLn('uses types;');
+    if DelphiCode then
+      AddLn('uses System.Types;')
+    else
+      AddLn('uses types;');
     Addln('');
     EnsureSection(csType);
     Addln('');