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: File not found exception

Browse source 
(cherry picked from commit 47fd6c736b)
This commit is contained in:
Alexander Koblov 2023-12-05 19:58:07 +03:00
commit ae9e34966b
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/udetectstr.pas
View file

@ -255,11 +255,15 @@ function TParserControl.TestFileResult(const aFileName: String): Boolean;
var
aFile: TFile;
begin
aFile:= TFileSystemFileSource.CreateFileFromFile(aFileName);
try
Result:= TestFileResult(aFile);
finally
aFile.Free;
aFile:= TFileSystemFileSource.CreateFileFromFile(aFileName);
try
Result:= TestFileResult(aFile);
finally
aFile.Free;
end;
except
Result:= False;
end;
end;