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

symstrings, less erroneou CPCD symbol 

see 1d769d3583
This commit is contained in:
Basile Burg 2015-08-15 09:33:52 +02:00
parent 1d769d3583
commit 977374d00f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_symstring.pas
View File

@ -217,7 +217,10 @@ begin
str.Add(fname);
end;
fSymbols[CPFS] := str.Text;
fSymbols[CPCD] := commonFolder(str);
if str.Count = 1 then
fSymbols[CPCD] := ExtractFileDir(Str.Strings[0])
else
fSymbols[CPCD] := commonFolder(str);
finally
str.Free;
end;