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

try to delete temp file name on save with valid name

This commit is contained in:
Basile Burg 2016-04-03 04:21:45 +02:00
parent 7775180f09
commit 10796ab262
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_synmemo.pas
View File

@ -1294,7 +1294,11 @@ begin
FileAge(fFilename, fFileDate); FileAge(fFilename, fFileDate);
fModified := false; fModified := false;
if fFilename <> fTempFileName then if fFilename <> fTempFileName then
begin
if fTempFileName.fileExists then
sysutils.DeleteFile(fTempFileName);
subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self); subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self);
end;
end; end;
procedure TCESynMemo.save; procedure TCESynMemo.save;