Rekursives Problem

[sirius]

Meinst du so:

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 result<>nil then exit;
    end;
  end; 
  result:=nil;
end;

Edit: "end;" vergessen