Rekursives Problem

[xaromz]

Hallo,

Du benötigst eine weitere Abbruchbedingung:

Delphi-Quellcode:

function Find(Items: TObjectList; Item: HMENU): TMenuItem;
var 
  i: Integer;
begin 
  for i := 0 to Items.Count - 1 do
  begin
    if TMenuItem(Items[i]).Handle = Item then
    begin
      Result := TMenuItem(Items[i]);
      exit;
    end
    else
    begin
      Result := Find(TMenuItem(Items[i]).FItems, Item);
      if Assigned(Result) then
        Exit;
    end;
  end;
end;

Gruß
xaromz