идея была привести findfirst/next к удобному виду под delphi7
что получилось:
- не надо объявлять ни одной переменной, минимализм
- магическим образом работает рекурсивный поиск в глубину
как это выглядит:
PHP код:
понимает: '
c:
c:\
c:\*
c:\*.sys
c:\WINDOWS\system32\** <<=рекурсивные
c:\WINDOWS\system32\**\
c:\WINDOWS\system32\**\*
c:\WINDOWS\system32\**\*.dll
c:\WINDOWS\system32\**\xpssvcs.dll '
использование:
with Files('c:') do
while find do
listbox1.Items.Add(filename);
// здесь find, filename, также searchrec - это методы объекта возвращаемого в with
// подходит если надо найти один файл а не собрать в список все
// и если хочется сделать break из такого цикла, то можно вызвать Free тоже, тк в этом случае объект автоматом не освобождается
// или так
listbox1.items.assign(List(Files('c:'))); // но тут лёгкая утечка:>