mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Possible memory leak.

Browse source
This commit is contained in:
cobines 2009-08-06 19:48:24 +00:00
commit 3dca60a3ab
1 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/newdesign/ufilesystemfile.pas
View file

@ -184,18 +184,22 @@ end;
constructor TFileSystemFile.Create(FilePath: String);
var
SearchRecord: TSearchRec;
FindResult: Longint;
begin
if FindFirstEx(FilePath, faAnyFile, SearchRecord) <> 0 then
begin
FindResult := FindFirstEx(FilePath, faAnyFile, SearchRecord);
try
if FindResult <> 0 then
begin
raise EFileSystemFileNotExists.Create('File ' + FilePath + ' does not exist.');
end
else
Create(SearchRecord);
Path := ExtractFilePath(FilePath);
finally
FindCloseEx(SearchRecord);
raise EFileSystemFileNotExists.Create('File ' + FilePath + ' does not exist.');
end
else
Create(SearchRecord);
Path := ExtractFilePath(FilePath);
FindCloseEx(SearchRecord);
end;
end;
destructor TFileSystemFile.Destroy;