Merge pull request #1 from guimaraes-lucas/master

Solve the compilation problem in DX Berlin

src/core/Boss.Modules.PackageProcessor.pas

@@ -4,15 +4,15 @@
 interface
 
 uses
-  System.IniFiles, System.Classes, System.SysUtils;
+  System.IniFiles, System.Classes, System.SysUtils, System.Types;
 
 type
   TBossPackageProcessor = class
   private
     FDataFile: TStringList;
 
-    function GetBplList(ARootPath: string): TArray<string>;
-    function GetBinList(ARootPath: string): TArray<string>;
+    function GetBplList(ARootPath: string): TStringDynArray;
+    function GetBinList(ARootPath: string): TStringDynArray;
 
     function GetDataCachePath: string;
 
@@ -47,15 +47,15 @@ constructor TBossPackageProcessor.Create;
   UnloadOlds;
 end;
 
-function TBossPackageProcessor.GetBinList(ARootPath: string): TArray<string>;
+function TBossPackageProcessor.GetBinList(ARootPath: string): TStringDynArray;
 begin
   if not DirectoryExists(ARootPath + C_BIN_FOLDER) then
     Exit();
 
   Result := TDirectory.GetFiles(ARootPath + C_BIN_FOLDER, '*.exe')
 end;
 
-function TBossPackageProcessor.GetBplList(ARootPath: string): TArray<string>;
+function TBossPackageProcessor.GetBplList(ARootPath: string): TStringDynArray;
 begin
   if not DirectoryExists(ARootPath + C_BPL_FOLDER) then
     Exit();
@@ -84,7 +84,7 @@ procedure PackageInfoProc(const Name: string; NameType: TNameType; Flags: Byte;
 
 procedure TBossPackageProcessor.LoadBpls(AProjectPath: string);
 var
-  LBpls: TArray<string>;
+  LBpls: TStringDynArray;
   LBpl: string;
   LFlag: Integer;
   LHnd: NativeUInt;
@@ -112,7 +112,7 @@ procedure TBossPackageProcessor.LoadBpls(AProjectPath: string);
 
 procedure TBossPackageProcessor.LoadTools(AProjectPath: string);
 var
-  LBins: TArray<string>;
+  LBins: TStringDynArray;
   LBin, LBinName: string;
   LFlag: Integer;
   LHnd: NativeUInt;