См. также viewtopic.php?f=16&t=1832Сообщение от Евгения Темиргалеева (у него почему-то пока доступа к закрытой части форума нет)
Привожу пример кода:
Код:
files := Files.dir.FileList(l);
ASSERT(l.res = 0, 100);
WHILE files # NIL DO
...
files := files.next
END;
locs := Files.dir.LocList(l);
ASSERT(l.res = 0, 101);
WHILE locs # NIL DO
DoSearch(l.This(locs.name));
locs := locs.next
END
Данный код работает без трэпов, если Blackbox был запущен из своей корневой директории. При запуске с другого профиля - с использованием /use, срабатывают ASSERT-ы. При этом res=2 - файл/каталог не найден. Однако, списки файлов/каталогов оказываются корректными и поиск работает, если закомментировать ASSERT-ы.
Возможно в HostFiles есть ошибка, связанная с установкой res после поиска в "скрытой" директории.