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

do not specify each parent folder to dcd

This commit is contained in:
Basile Burg 2017-07-09 15:07:14 +02:00
parent b0c14cc3ef
commit 2510316275
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_dcd.pas
View File

@ -195,24 +195,14 @@ var
fold: string; fold: string;
folds: TStringList; folds: TStringList;
begin begin
if fProj <> project then if (fProj = nil) or (fProj <> project) then
exit; exit;
if fProj = nil then
exit;
//
folds := TStringList.Create; folds := TStringList.Create;
try try
fold := ce_projutils.projectSourcePath(project); fold := ce_projutils.projectSourcePath(project);
if fold.dirExists and (folds.IndexOf(fold) = -1) then if fold.dirExists then
folds.Add(fold); folds.Add(fold);
for i:= 0 to fProj.sourcesCount-1 do
begin
if not (fProj.sourceAbsolute(i).fileExists) then
continue;
fold := fProj.sourceAbsolute(i).extractFilePath;
if folds.IndexOf(fold) = -1 then
folds.Add(fold);
end;
for i := 0 to fProj.importsPathCount-1 do for i := 0 to fProj.importsPathCount-1 do
begin begin
fold := fProj.importPath(i); fold := fProj.importPath(i);