es funzt nicht

[markus lemcke]

<p>hallo</p>
<p><br>
in meinem programm speichere ich shortcuts in eine textdatei!<br>
die will ich dann auch beim start des programmes den menüs zuweisen.<br>
dazu lese ich sie in ein memo ein und will dann memo und menüs abarbeiten!<br>
aber es funzt nicht:<br>
<br>
procedure TFormShortCut.laden(menu:TMenu;datei:string);<br>
(*<br>
der aufruf geht so:<br>
&nbsp; FormShortCut.laden(MainMenu1,'c:\menu.txt');<br>
&nbsp; *)<br>
PROCEDURE BrowseSubMenu(aItem: TMenuItem; var memo: tmemo;x:integer);<br>
&nbsp;Var j: Integer;<br>
&nbsp;BEGIN<br>
&nbsp;&nbsp; FOR j := 0 TO aItem.Count - 1 DO<br>
&nbsp;&nbsp;&nbsp; BEGIN<br>
&nbsp;&nbsp;&nbsp; Aitem.Items[j].shortcut := TextToShortCut(memo.Lines[x]);<br>
&nbsp;&nbsp;&nbsp; if x &gt; memo.lines.Count-1 then exit;<br>
&nbsp;&nbsp;&nbsp; inc(x);<br>
&nbsp;&nbsp;&nbsp;&nbsp; BrowseSubMenu(aItem.Items[j], memo,x);<br>
&nbsp;&nbsp;&nbsp; END; // FOR<br>
&nbsp;END;<br>
<br>
<br>
Var<br>
&nbsp; j,i,x: Integer;<br>
&nbsp; m : tmemo;<br>
&nbsp;item : TMenuItem;<br>
begin<br>
&nbsp; if FileExists(datei) then begin<br>
<br>
&nbsp;&nbsp;&nbsp; m := tmemo.create(FormShortCut);<br>
&nbsp;&nbsp;&nbsp; m.Parent := FormShortCut;<br>
&nbsp;&nbsp;&nbsp; m.visible := false;<br>
&nbsp;&nbsp;&nbsp; m.Lines.Clear;<br>
&nbsp;&nbsp;&nbsp; m.Lines.LoadFromFile(datei);<br>
&nbsp;&nbsp;&nbsp; x := 0;<br>
&nbsp;&nbsp;&nbsp; for i := 0 to menu.Items.Count-1 do begin<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; item := TMenuItem(menu.Items[i]);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; BrowseSubMenu(item,m,x);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<br>
&nbsp;&nbsp;&nbsp; end;<br>
end;<br>
<br>
findet jemand den fehler?<br>
<br>
gruß aus reutlingen<br>
<br>
markus<br>
</p>