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

fixed possible list error when getting the outputFilename

This commit is contained in:
Basile Burg 2014-11-03 12:38:07 +01:00
parent 4e9259371c
commit 1791623aee
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_project.pas
View File

@ -300,6 +300,8 @@ begin
result := getAbsoluteFilename(result);
exit;
end;
if Sources.Count = 0 then
exit;
result := extractFilename(Sources.Strings[0]);
result := result[1..length(result) - length(extractFileExt(result))];
result := extractFilePath(fileName) + DirectorySeparator + result + exeExt;