Автор темы
Добрый день.
Понадобилась функция обхода каталога, нашёл нужный код: Class TTreeWalker
Мне не понятен используемый там синтаксис:
type
PNewDir = procedure(Sender: TObject; Dir: string) of object;
PNewFile = procedure(Sender: TObject; F: TSearchRec) of object;
Я правильно понимаю - я должен сделать две процедуры c названиями PNewDir и PNewFile и этот класс будет вызывать их при обнаружении нового каталога и нового файла? Где их разместить - прямо в классе или рядом?
Понадобилась функция обхода каталога, нашёл нужный код: Class TTreeWalker
Мне не понятен используемый там синтаксис:
type
PNewDir = procedure(Sender: TObject; Dir: string) of object;
PNewFile = procedure(Sender: TObject; F: TSearchRec) of object;
Я правильно понимаю - я должен сделать две процедуры c названиями PNewDir и PNewFile и этот класс будет вызывать их при обнаружении нового каталога и нового файла? Где их разместить - прямо в классе или рядом?
