UPD: Clean up

This commit is contained in:
Alexander Koblov 2019-01-22 17:17:08 +00:00
commit e76bc5eedc

View file

@ -526,10 +526,7 @@ var
NewSelectedState,
FirstFound,
Result: Boolean;
sFileName,
sSearchName,
sSearchNameNoExt,
sSearchExt : String;
sFileName : String;
AFile: TFile;
Masks: TMaskList;
@ -551,8 +548,6 @@ begin
if IsEmpty then
Exit;
sSearchName := SearchTerm;
Index := GetActiveFileIndex; // start search from current position
if not IsFileIndexInRange(Index) then
begin