[m] JPLM.FileSearch: removed comments, Last.Free (memory leak fix)

jackdp · Sep 19, 2021 · 4beeefc · 4beeefc
1 parent bbf7c82
commit 4beeefc
Showing 1 changed file with 1 addition and 63 deletions.
diff --git a/Base/JPLM.FileSearch.pas b/Base/JPLM.FileSearch.pas
@@ -169,26 +169,6 @@ procedure AddMaskedFileToList(FileMask: string; FileList: TJPStrList);
   {$ENDIF}
 end;
 
-//procedure AddMaskedFileToList(FileMask: string; FileList: TJPStrList);
-//var
-//  SR: TSearchRec;
-//  Dir: string;
-//begin
-//  Dir := ExtractFilePath(FileMask);
-//  if FindFirst(FileMask, faAnyFile, SR) = 0 then
-//  try
-//    {$IFDEF FPC}if not MatchesMask(SR.Name, FileMask, JPFileSearchCaseSensitive) then Exit;{$ENDIF}
-//    if IsFile(SR) then FileList.Add(Dir + SR.Name);
-//    while FindNext(SR) = 0 do
-//    begin
-//      {$IFDEF FPC}if not MatchesMask(SR.Name, FileMask, JPFileSearchCaseSensitive) then Continue;{$ENDIF}
-//      if IsFile(SR) then FileList.Add(Dir + SR.Name);
-//    end;
-//  finally
-//    FindClose(SR);
-//  end;
-//end;
-
 procedure FillFileList(LineToParse: string; const FileSeparator: string; FileList: TJPStrList);
 var
   x: integer;
@@ -220,31 +200,6 @@ procedure FillFileList(LineToParse: string; const FileSeparator: string; FileLis
 
 end;
 
-
-//procedure StrToList(LineToParse: string; var List: THashedStringList; Separator: string = ',');
-//var
-//  xp: integer;
-//  s: string;
-//begin
-//  //if not Assigned(List) then Exit;
-//
-//  xp := Pos(Separator, LineToParse);
-//  while xp > 0 do
-//  begin
-//    s := Trim(Copy(LineToParse, 1, xp - 1));
-//    List.Add(s);
-//    Delete(LineToParse, 1, xp + Length(Separator) - 1);
-//    LineToParse := Trim(LineToParse);
-//    xp := Pos(Separator, LineToParse);
-//  end;
-//
-//  if LineToParse <> '' then
-//  begin
-//    LineToParse := Trim(LineToParse);
-//    if LineToParse <> '' then List.Add(LineToParse);
-//  end;
-//
-//end;
 {$endregion}
 
 
@@ -313,24 +268,6 @@ procedure FindFiles(FileMask, StartDir: string; var List: TJPStrList; AcceptSymL
   {$ENDIF}
 end;
 
-//procedure FindFiles(FileMask, StartDir: string; var List: TJPStrList; AcceptSymLinks: Boolean = True);
-//var
-//  SR: TSearchRec;
-//begin
-//  if FindFirst(StartDir + PathDelim + FileMask, faAnyFile, SR) = 0 then
-//  try
-//    {$IFDEF FPC}if not MatchesMask(SR.Name, FileMask, JPFileSearchCaseSensitive) then Exit;{$ENDIF}
-//    if IsFile(SR, AcceptSymLinks) then List.Add(StartDir + PathDelim + SR.Name);
-//    while FindNext(SR) = 0 do
-//    begin
-//      {$IFDEF FPC}if not MatchesMask(SR.Name, FileMask, JPFileSearchCaseSensitive) then Continue;{$ENDIF}
-//      if IsFile(SR, AcceptSymLinks) then List.Add(StartDir + PathDelim + SR.Name);
-//    end;
-//  finally
-//    FindClose(SR);
-//  end;
-//end;
-
 procedure FindDirs(StartDir: string; var List: TJPStrList; AcceptSymLinks: Boolean = True; SimpleEnumProc: TJPSimpleEnumProc = nil);
 var
   SR: TSearchRec;
@@ -431,6 +368,7 @@ procedure JPGetDirectoryList(
 
     SubdirsList.Free;
     TempList.Free;
+    Last.Free;
   end;
 end;
 {$endregion}