Обход дерева неизвестной глубины

[Человек_Борща]

Всем привет!

Есть некое бездонное нечто:

 Type
   TTreeItem = class;
   TTree = class(TTreeItem);
   TTreeItem = class(TObjectList<TTreeItem>)
   Container:Boolean;
   function FindByID(aWhat:string; out aObj:TTreeItem):Boolean;
    end;

Каждый TTreeItem явл. списком объектов TTreeItem которые явл. списками других объектов TTreeItem .... в общем что-то не имеющее конца и вложенности.

У объекта есть переключатель, переменная Container которая являт собой признак способности этого объекта содержать в себе другие объекты. Если True, TTreeItem имеет право хранить другие TTreItem.

Задача:
Мне нужно рекурсивно обойти это дерево и найти что-то, когда что-то найдено, вернуть это в переменную и прекратить поиск.

Для этого написал функцию FindByID:

function TTreeItem.FindByID(aWhat: string; var aObj: TTreeItem): Boolean;
var
  i: Integer;
begin
  Result := False;
  if (Id = aWhat) then //Проверяем себя..
  begin
    aOut := self;
    Result := True;
    Exit;
  end;
  If Container then
  begin
    for i := 0 to Count - 1 do 
    begin
      if Assigned(aOut) then //Если уже нашли, то прерываем эту рекурсию.
        Exit;
      if (Items[i].Id = aWhat) then
      begin
        aOut := Items[i];
        Result := True;
        Break;
      end
      else
      begin
        if Items[i].Container then
        begin
          if Items[i].FindByID(aWhat, aOut) then
            Break;
        end;
      end;
    end;
  end;
end;

Код тривиален в коментариях не сильно нуждается:
Проверяем себя,
Если контеинер, то цикл по внутренним элементам.
Если нашли элемент, то возврат его в переменную, и выход из функции.

Проблема в том, что код работает.
И под отладчиком я точно прихожу к моменту когда функция дает результат(возврат совпадения в переменную и выход), однако затем, на следующие X нажатий F8, отладчик скачет по предпоследнему end; и затем передает управление программе. В итоге алгоритм отработал вроде бы верно, но функция вернула False, и нужный код не отработал.

В чем ошибка?
Может есть более эффективный метод поиска в таких деревьях?

[BDA]

А так?

function TTreeItem.FindByID(aWhat: string; var aObj: TTreeItem): Boolean;
var
  i: Integer;
begin
  Result := False;
  if (Id = aWhat) then
  begin
    aOut := self;
    Result := True;
    Exit;
  end;
  If Container then
    for i := 0 to Count - 1 do 
    begin
      Result := Items[i].FindByID(aWhat, aOut);
      if Result then
        Exit;
    end;
end;

Кстати, если сработает if Items[i].FindByID(aWhat, aOut) then Break;, то значение Result так и останется false (если не ошибаюсь).

[Человек_Борща]

Работает. Чудно однако... из-за одного Break'а

[Utkin]

Мне тоже Break не понравился....

[Vapaamies]

Угу, низ я бы записал так:

begin
  Result := Items[i].FindByID(aWhat, aOut);
  if Result then
    Break;
end;

[Человек_Борща]

Так оно с Break'ом не работает с Exit - все отлично.

[Аватар]

А здесь без разницы. В исходном коде не работало потому, что Result забыли присвоить