fix #300 - Error while finding the common directory and if all the sources dont have a module declaration

src/ce_projutils.pas

@@ -243,7 +243,15 @@ begin
       end;
     end;
     deleteDups(lst);
-    if project.sourcesCount = 0 then
+    // issue 300 when no moduleDeclaration lst can be empty
+    if (lst.Count = 0) and (project.sourcesCount > 0) then
+    begin
+      for i := 0 to project.sourcesCount-1 do
+        lst.Add(project.sourceAbsolute(i));
+      result := commonFolder(lst);
+      result := result.extractFileDir;
+    end
+    else if (project.sourcesCount = 0) then
       result := ''
     else
     begin