Проблема TTreeWalker - как пользоваться?

[Shandrik]

Добрый день.
Понадобилась функция обхода каталога, нашёл нужный код: Class TTreeWalker

Мне не понятен используемый там синтаксис:
type
PNewDir = procedure(Sender: TObject; Dir: string) of object;
PNewFile = procedure(Sender: TObject; F: TSearchRec) of object;

Я правильно понимаю - я должен сделать две процедуры c названиями PNewDir и PNewFile и этот класс будет вызывать их при обнаружении нового каталога и нового файла? Где их разместить - прямо в классе или рядом?

 

[Shandrik]

Странные модераторы в Delphi-разделе. При чём тут "Решите мне задачку"? Перенесите уж лучше в "Компоненты".

 

[randrange]

Ознакомьтесь:

Программирование на Delphi. Класс для рекурсивного обхода дерева каталогов

delphibaza.ru