[Pyro]

идея была привести 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:'))); // но тут лёгкая утечка:>