mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Error when can not read/write file description

Browse source
This commit is contained in:
Alexander Koblov 2010-01-14 23:57:10 +00:00
commit 77556c55ee
1 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/udescr.pas
View file

@ -120,12 +120,15 @@ var
begin
sDescrFile:= ExtractFilePath(FileName) + 'descript.ion';
if sDescrFile <> FLastDescrFile then
begin
try
if (FLastDescrFile <> '') and (Count > 0) then
SaveToFile(FLastDescrFile);
FLastDescrFile:= sDescrFile;
if mbFileExists(FLastDescrFile) then
LoadFromFile(FLastDescrFile);
except
on E: Exception do
DebugLn('TDescription.PrepareDescrFile - ' + E.Message);
end;
end;
@ -287,12 +290,17 @@ end;
procedure TDescription.SaveDescription;
begin
if Count > 0 then
SaveToFile(FLastDescrFile)
else
mbDeleteFile(FLastDescrFile);
if Assigned(FDestDescr) then
FDestDescr.SaveDescription;
try
if Count > 0 then
SaveToFile(FLastDescrFile)
else
mbDeleteFile(FLastDescrFile);
if Assigned(FDestDescr) then
FDestDescr.SaveDescription;
except
on E: Exception do
DebugLn('TDescription.SaveDescription - ' + E.Message);
end;
end;
end.