Er zit een with-val in de EnumFiles:
Delphi Code:
procedure NLDGetFiles(Path: string; List: TStrings; Options: TFSOptions) {Arme options parameter die nooit wordt gebrukt}; begin List.Clear; with TNLDStringsFileSearch.Create do try Strings := List; EnumFiles(Path, Options); finally Free; end; end;
Bookmarks