Merge pull request #10 from guimaraes-lucas/master

Solve the compilation problem in DX Berlin
HashLoad · Nov 18, 2019 · c291474 · c291474
2 parents 68bcfd3 + 54b8e73
commit c291474
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/core/Boss.Modules.PackageProcessor.pas b/src/core/Boss.Modules.PackageProcessor.pas
@@ -22,7 +22,7 @@   TBossPackageProcessor = class
 
     procedure LoadTools(AProjectPath: string);
     procedure MakeLink(AProjectPath, AEnv: string);
-    procedure DoLoadBpls(ABpls: TArray<string>);
+    procedure DoLoadBpls(ABpls: TStringDynArray);
 
     constructor Create;
   public
@@ -149,7 +149,9 @@ function TBossPackageProcessor.GetBplList: TStringDynArray;
   LOrderFileName: string;
   LOrder: TStringList;
   LIndex: Integer;
+  I: Integer;
 begin
+  Result := Nil;
   if not DirectoryExists(GetEnv(C_ENV_BPL)) then
     Exit();
 
@@ -163,7 +165,9 @@ function TBossPackageProcessor.GetBplList: TStringDynArray;
       for LIndex := 0 to LOrder.Count - 1 do
         LOrder.Strings[LIndex] := GetEnv(C_ENV_BPL) + TPath.DirectorySeparatorChar + LOrder.Strings[LIndex];
 
-      Result := LOrder.ToStringArray;
+      SetLength(Result, LOrder.Count);
+      for I := 0 to LOrder.Count - 1 do
+        Result[I] := LOrder[I];
     finally
       LOrder.Free;
     end;
@@ -198,7 +202,7 @@ procedure TBossPackageProcessor.LoadBpls;
   DoLoadBpls(LBpls);
 end;
 
-procedure TBossPackageProcessor.DoLoadBpls(ABpls: TArray<string>);
+procedure TBossPackageProcessor.DoLoadBpls(ABpls: TStringDynArray);
 var
   LBpl: string;
   LFlag: Integer;