function makemenu(f:String):String;
var
res:resource;
typ,filepath,hint:string;
IDS,byte,ExitID:Integer;
Begin
res:=openresource('/'+f+'.txt');
_clearform;
While chr(byte)<>'&' Do
Begin
byte:=readbyte(res);
If chr(byte)='$' Then
Begin
typ:='';
filepath:='';
hint:='';
While chr(byte)<>'(' Do
Begin
byte:=readbyte(res);
If chr(byte)<>'(' Then typ:=typ+chr(byte);
End;
While chr(byte)<>',' Do
Begin
byte:=readbyte(res);
If chr(byte)<>',' Then filepath:=filepath+chr(byte);
End;
While chr(byte)<>')' Do
Begin
byte:=readbyte(res);
If chr(byte)<>')' Then hint:=hint+chr(byte);
End;
IDS:=_addselectedlabel(typ,0);
End;
End;
...
что тут неправильно?
