Перестал ловиться глюк!

← →
TUser (2003-10-16 09:18) [0]

Писал вчера функцию, которая должна Выводить в TreeView дерево каталогов и сохраненных web страниц. Код абсолютно классический для тиках случаев
function AddToTree(n:TTreeNode, startDir:string):boolean; var // объявим какие-то переменные res:boolean; SRes:TSearchResult; begin workDir:=TreeView1.AddChild(n,startDir); res:=false; if FindFirst(...)=0 then begin repeat if SRes.Attr=16 {нашли папку} then res:=res or AddToTree(workDir, SRes.Name) else begin //Если файл имеет нужное нам расширение, добавляем его //и ставим res:=true; end; until FindNext(...)<>0; end; FindClose(SRes); if not res {если так ничего и не нашли} then //удаляем workDir AddToTree:=res; // Если что-то есть, вернем true end;
Т.е. функция возварщает true, если что-то найдено. Для всех подпапок рекурсивно вызываем самоё себя, поэтому true вернется, если что-то есть в папке и ееподпапках.
Все вроде правильно, но появился странный глюк - если в исходной папке больше, чем обда подпапка, то рекурсивоный вызов выполняется только для первой из них. Для остальных AddToTree не вызывается, хотя SRes.Attr=faDirectory. Сразу говорю - это не есть свойство конкретной папки.
Короче я писал по-азному, в конце концов заменил
if SRes.Attr=16 {нашли папку} then res:=res or AddToTree(workDir, SRes.Name) else ...
на
if SRes.Attr=16 {нашли папку} then begnin if AddToTree(workDir, SRes.Name) then res:=true; end else ...
И все у меня заработало, хотя ведь я написал то же самое, только другими словами. Почему?

← →
MBo (2003-10-16 09:25) [1]

>if SRes.Attr=16
Это неправильно. Надо
if (SRes.Attr and faDirectory)= faDirectory

пример есть в FAQ

← →
TUser (2003-10-16 09:32) [2]

Примеров много. Я менял код по-разному, так тоже пробовал - глюк ловится. В вопросе я привел тот код, который у меня был перед исправлением глюка. Можно еще и (SRes.Attr and faDirectory)>0 поставить - но с тем же результатом. Можно еще что-то придумать.
Ведь faDirectory=16, это константа.
Я-то заменил только операор присвоения
res:=res or AddToTree
на begin if ... end
Тут всего 4 варианта
1. res=true, AddToTree=true --> res:=true;
2. res=true, AddToTree=false --> res:=true;
1. res=false, AddToTree=true --> res:=true;
1. res=false, AddToTree=false --> res:=true;
Результат, кажется, должен быть одинковым в любом случае. Так почему прога ведет себя по-разному.

← →
default (2003-10-16 09:38) [3]

TUser © (16.10.03 09:32) [2]
и что, что faDirectory константа?в SRes.Attr могут быть "заложены" биты и других констант, это по-любому неправильно

← →
MBo (2003-10-16 09:39) [4]

>Можно еще и (SRes.Attr and faDirectory)>0 поставить
Да, можно
>Ведь faDirectory=16, это константа.
>SRes.Attr=16
Так делать нельзя принципиально!!!

workdir - глобальная?

← →
Verg (2003-10-16 09:43) [5]

> Для остальных AddToTree не вызывается, хотя SRes.Attr=faDirectory.
> Сразу говорю - это не есть свойство конкретной папки.

Все очень просто:
res:=res or AddToTree(workDir, SRes.Name)

Если res уже true, то код не быде выполнять AddToTree, так как решит, что при операции or занчение этой ф-ции уже не играет никакой роли.

Complete boolean eval - о чем-то тебе говорит?

← →
TUser (2003-10-16 09:45) [6]

> workdir - глобальная?

Нет

Перестал ловиться глюк! Найти похожие ветки