Abandoned/abtool
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

lps-файл удалён и добавлен в gitignore. Почти готов механизм подгрузки списков пакетов на старте

Browse Source
This commit is contained in:
Anthony Axenov
2019-01-13 04:24:13 +08:00
parent 1f20268830
commit 63823b8e6e
15 changed files with 343 additions and 516 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
ufileutils.pas
View File

@@ -7,17 +7,20 @@ interface
uses
Classes, SysUtils, FileUtil, Types, uPackage;
// Получение списка файлов в директории
function GetFileList(Path, FileMask: String; FullPaths: Boolean = True): TStringList;
function GetABToolFileList(SubDir, FileMask: String;
FullPaths: Boolean = True): TStringList;
function GetPackagesIniFileList(PackageType: TPackageType;
FullPaths: Boolean = True): TStringList;
// Получение списка всех файлов внутри директории ABTool\
function GetABToolFileList(SubDir, FileMask: String; FullPaths: Boolean = True): TStringList;
// Получение списка всех файлов пакетов
function GetPackagesIniFileList(PackageType: TPackageType; FullPaths: Boolean = True): TStringList;
implementation
{------------------------------------------------------------------------------
Функция: GetFileList
Назначение: Получает список файлов в директории
Назначение: Получение списка файлов в директории
Вх. параметры:
Path: string - путь к директории, список файлов которой нужно получить
FileMask: string - маска файлов, по которой нужно отфильтровать список файлов
@@ -51,7 +54,7 @@ end;
{------------------------------------------------------------------------------
Функция: GetABToolFileList
Назначение: Получает список всех файлов внутри директории ABTool\
Назначение: Получение списка всех файлов внутри директории ABTool\
Вх. параметры:
SubDir: string - имя директории внутри ABTool\
FileMask: string - маска файлов, по которой нужно отфильтровать список файлов
@@ -60,16 +63,14 @@ end;
Возвращает:
TStringList - список строк с полными путями или только с именами файлов пакетов
------------------------------------------------------------------------------}
function GetABToolFileList(SubDir, FileMask: String;
FullPaths: Boolean = True): TStringList;
function GetABToolFileList(SubDir, FileMask: String; FullPaths: Boolean = True): TStringList;
begin
Result := GetFileList(ExtractFilePath(ParamStr(0)) + 'ABTool\' +
SubDir, FileMask, FullPaths);
Result := GetFileList(ExtractFilePath(ParamStr(0)) + 'ABTool\' + SubDir, FileMask, FullPaths);
end;
{------------------------------------------------------------------------------
Функция: GetPackagesIniFileList
Назначение: Получает список всех пакетов
Назначение: Получение спискавсех файлов пакетов
Вх. параметры:
PackageType: TPackageType - тип пакета: ptSoft либо ptTools
FullPaths: boolean - возвращать полные пути (true) или только имена
@@ -79,18 +80,13 @@ end;
Исключения:
TException - при попытке передать ptUnknown
------------------------------------------------------------------------------}
function GetPackagesIniFileList(PackageType: TPackageType;
FullPaths: Boolean = True): TStringList;
function GetPackagesIniFileList(PackageType: TPackageType; FullPaths: Boolean = True): TStringList;
begin
case (PackageType) of
ptSoft: Result := GetABToolFileList('Packages', 'soft.*.ini', FullPaths);
ptTools: Result := GetABToolFileList('Packages', 'tools.*.ini', FullPaths);
ptUnknown: raise Exception.Create(
'GetPackagesIniFileList(): передан ptUnknown');
ptUnknown: raise Exception.Create('GetPackagesIniFileList(): передан ptUnknown');
end;
end;
end.