mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD/StashFS: step-9: improve StashFilesBackend

Browse source
This commit is contained in:
rich2014 2026-06-05 08:44:49 +08:00
commit 89154db05d
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/filesources/stash/ustashfilesbackend.pas
View file

@ -21,6 +21,8 @@ type
procedure addPath( const path: String );
procedure removePath( const path: String );
procedure clear;
function count: Integer;
procedure removePaths( const files: TFiles );
function toFiles: TFiles;
end;
@ -34,6 +36,8 @@ implementation
constructor TStashFilesBackend.Create;
begin
_paths:= TStringList.Create;
_paths.SortStyle:= sslAuto;
_paths.Duplicates:= dupIgnore;
end;
destructor TStashFilesBackend.Destroy;
@ -50,7 +54,7 @@ procedure TStashFilesBackend.removePath(const path: String);
var
i: Integer;
begin
i:= _paths.IndexOf( path );
_paths.Find( path, i );
if i >= 0 then
_paths.Delete( i );
end;
@ -60,6 +64,19 @@ begin
_paths.Clear;
end;
function TStashFilesBackend.count: Integer;
begin
Result:= _paths.Count;
end;
procedure TStashFilesBackend.removePaths(const files: TFiles);
var
i: Integer;
begin
for i:= 0 to files.Count-1 do
self.removePath( files[i].FullPath );
end;
function TStashFilesBackend.toFiles: TFiles;
var
files: TFiles;