[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:'))); // но тут лёгкая утечка:> 


[dr. F.I.N.]

Что-то в этом есть, конечно. Однако будет утечка памяти при использовании именно такой конструкции:

Код:

ListBox1.Items.Assign(List(Files('c:\')));                //' 
  ListBox1.Items.Assign(List(Files('c:\*')));  
  ListBox1.Items.Assign(List(Files('c:\*.txt')));  
  ListBox1.Items.Assign(List(Files('c:\windows\**')));      
  ListBox1.Items.Assign(List(Files('c:\windows\**\')));              //'     
  ListBox1.Items.Assign(List(Files('c:\windows\**\*')));      
  ListBox1.Items.Assign(List(Files('c:\windows\**\*.dll')));

Результат List - уничтожать кто будет?

[M.A.D.M.A.N.]

Сделать, чтоб ф-я интерфейс воротила, будет круто.

[Pyro]

чтоб ф-я интерфейс воротила
- с интерфейсами никогда не сталкивался
Результат List - уничтожать кто будет
- вобще надо бы, но так нагляднее

Особенность была:
писал с предположением, что в маске всегда будет звёздочка, поиск по точному имени не работал

[M.A.D.M.A.N.]

http://www.gamedev.ru/community/delp.../use_interface
Не забываем про GUID
P.S. статья хреновинькая, но для начала пойдет.

[NumLock]

Код:

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMessage(ListBox1.Handle, LB_DIR, $3f, Integer(PChar('c:\Windows\System32\*.exe'#0)));
end;

[Pyro]

интерфейсы - так и не понял что они дадут

файл обновил, сейчас все тестовые строчки работают как надо, даже рекурсивный поиск по точному имени
если повезёт, сделаю ещё поиск в ширину и поиск по всем дискам (*:\pagefile*, или по другому как-нибудь )