forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, trailing dirsep removed

This commit is contained in:
Basile Burg 2015-01-28 09:31:36 +01:00
parent 94e88424af
commit 2667b67438
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_libman.pas
View File

@ -121,6 +121,7 @@ var
itm: TLibraryItem;
lst: TStringList;
i, j: NativeInt;
dir: string;
begin
for i := 0 to fCol.Count-1 do
begin
@ -142,7 +143,10 @@ begin
begin
lst := TStringList.Create;
try
listFiles(lst, itm.libFile);
dir := itm.libFile;
if itm.libFile[length(dir)] = DirectorySeparator then
dir := dir[1..length(dir)-1]
listFiles(lst, dir);
for j:= 0 to lst.Count-1 do
begin
if extractFileExt(lst.Strings[j]) = libExt then