diff --git a/src/core/Boss.Modules.PackageProcessor.pas b/src/core/Boss.Modules.PackageProcessor.pas index 9eab965..ba0ca50 100644 --- a/src/core/Boss.Modules.PackageProcessor.pas +++ b/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; - function GetBinList(ARootPath: string): TArray; + function GetBplList(ARootPath: string): TStringDynArray; + function GetBinList(ARootPath: string): TStringDynArray; function GetDataCachePath: string; @@ -47,7 +47,7 @@ constructor TBossPackageProcessor.Create; UnloadOlds; end; -function TBossPackageProcessor.GetBinList(ARootPath: string): TArray; +function TBossPackageProcessor.GetBinList(ARootPath: string): TStringDynArray; begin if not DirectoryExists(ARootPath + C_BIN_FOLDER) then Exit(); @@ -55,7 +55,7 @@ function TBossPackageProcessor.GetBinList(ARootPath: string): TArray; Result := TDirectory.GetFiles(ARootPath + C_BIN_FOLDER, '*.exe') end; -function TBossPackageProcessor.GetBplList(ARootPath: string): TArray; +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; + 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; + LBins: TStringDynArray; LBin, LBinName: string; LFlag: Integer; LHnd: NativeUInt;