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

avoid possible failure if dir does not exist

This commit is contained in:
Basile Burg 2014-12-09 03:49:46 +01:00
parent 1592af26bb
commit dce827ef65
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_common.pas
View File

@ -379,6 +379,7 @@ begin
str1.WriteComponent(aComp); str1.WriteComponent(aComp);
str1.Position := 0; str1.Position := 0;
ObjectBinaryToText(str1,str2); ObjectBinaryToText(str1,str2);
ForceDirectories(ExtractFilePath(aFilename));
str2.SaveToFile(aFilename); str2.SaveToFile(aFilename);
finally finally
str1.Free; str1.Free;