97 lines
4.0 KiB
ObjectPascal
97 lines
4.0 KiB
ObjectPascal
unit uFileUtils;
|
||
|
||
{$mode objfpc}{$H+}
|
||
|
||
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;
|
||
|
||
implementation
|
||
|
||
{------------------------------------------------------------------------------
|
||
Функция: GetFileList
|
||
Назначение: Получает список файлов в директории
|
||
Вх. параметры:
|
||
Path: string - путь к директории, список файлов которой нужно получить
|
||
FileMask: string - маска файлов, по которой нужно отфильтровать список файлов
|
||
FullPaths: boolean - возвращать полные пути (true) или только имена
|
||
файлов (false). По умолчанию true.
|
||
Возвращает:
|
||
TStringList - список строк с полными путями или только с именами файлов
|
||
------------------------------------------------------------------------------}
|
||
function GetFileList(Path, FileMask: String; FullPaths: Boolean = True): TStringList;
|
||
var
|
||
SearchRec: TSearchRec;
|
||
ResultLines: TStringList;
|
||
begin
|
||
ResultLines := TStringList.Create;
|
||
Path := IncludeTrailingPathDelimiter(Path);
|
||
if FindFirst(Path + FileMask, faNormal, SearchRec) = 0 then
|
||
begin
|
||
repeat
|
||
if (SearchRec.Attr <> faDirectory) then
|
||
begin
|
||
if FullPaths then
|
||
ResultLines.Add(Path + SearchRec.Name)
|
||
else
|
||
ResultLines.Add(SearchRec.Name);
|
||
end;
|
||
until FindNext(SearchRec) <> 0;
|
||
FindClose(SearchRec);
|
||
end;
|
||
Result := ResultLines;
|
||
end;
|
||
|
||
{------------------------------------------------------------------------------
|
||
Функция: GetABToolFileList
|
||
Назначение: Получает список всех файлов внутри директории ABTool\
|
||
Вх. параметры:
|
||
SubDir: string - имя директории внутри ABTool\
|
||
FileMask: string - маска файлов, по которой нужно отфильтровать список файлов
|
||
FullPaths: boolean - возвращать полные пути (true) или только имена
|
||
файлов (false). По умолчанию true.
|
||
Возвращает:
|
||
TStringList - список строк с полными путями или только с именами файлов пакетов
|
||
------------------------------------------------------------------------------}
|
||
function GetABToolFileList(SubDir, FileMask: String;
|
||
FullPaths: Boolean = True): TStringList;
|
||
begin
|
||
Result := GetFileList(ExtractFilePath(ParamStr(0)) + 'ABTool\' +
|
||
SubDir, FileMask, FullPaths);
|
||
end;
|
||
|
||
{------------------------------------------------------------------------------
|
||
Функция: GetPackagesIniFileList
|
||
Назначение: Получает список всех пакетов
|
||
Вх. параметры:
|
||
PackageType: TPackageType - тип пакета: ptSoft либо ptTools
|
||
FullPaths: boolean - возвращать полные пути (true) или только имена
|
||
файлов (false). По умолчанию true.
|
||
Возвращает:
|
||
TStringList - список строк с полными путями или только с именами файлов пакетов
|
||
Исключения:
|
||
TException - при попытке передать ptUnknown
|
||
------------------------------------------------------------------------------}
|
||
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');
|
||
end;
|
||
end;
|
||
|
||
|
||
|
||
|
||
end.
|