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

improved performances when redefining DCD imports

This commit is contained in:
Basile Burg 2015-03-08 14:24:16 +01:00
parent c91e8e47f8
commit bd9cc5cbdf
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/ce_dcd.pas
View File

@ -120,19 +120,30 @@ procedure TCEDcdWrapper.projChanged(aProject: TCEProject);
var
i: Integer;
fold: string;
folds: TStringList;
begin
if fProj <> aProject then
exit;
if fProj = nil then
exit;
//
for i:= 0 to fProj.Sources.Count-1 do
addImportFolder(extractFilePath(fProj.getAbsoluteSourceName(i)));
for i := 0 to fProj.currentConfiguration.pathsOptions.importModulePaths.Count-1 do
begin
fold := fProj.currentConfiguration.pathsOptions.importModulePaths.Strings[i];
if DirectoryExists(fold) then
addImportFolder(fold);
folds := TStringList.Create;
try
for i:= 0 to fProj.Sources.Count-1 do
begin
fold := extractFilePath(fProj.getAbsoluteSourceName(i));
if folds.IndexOf(fold) = -1 then
folds.Add(fold);
end;
for i := 0 to fProj.currentConfiguration.pathsOptions.importModulePaths.Count-1 do
begin
fold := fProj.currentConfiguration.pathsOptions.importModulePaths.Strings[i];
if DirectoryExists(fold) and (folds.IndexOf(fold) = -1) then
folds.Add(fold);
end;
for fold in folds do addImportFolder(fold);
finally
folds.Free;
end;
end;