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

17
src/ce_dcd.pas
View File

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