Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

m: menu;

procedure fillmenu;

var

f: text;

mm: boolean;

str: string;

p1, p2, i, j: integer;

begin

assign(f, 'cursova.dat');

reset(f);

mm:=true;

p1:=1;

p2:=1;

while (not eof(f)) do begin

readln(f, str);

if mm then begin

menu_insert_main(m, str, ' ');

mm:=false;

end else if str='' then begin

mm:=true;

inc(p1); if (p1>10) then error('max no of submenus: 10');

p2:=1;

end else begin

fmen[p1, p2]:=copy(str, 1, pos(' ', str)-1);

inc(p2); if (p2>10) then error('max no of items in submen\x3A75\x3120\x2730\x3B29\x200D††\x6D20\x6E65\x5F75\x6E69\x6573\x7472\x735F\x6275\x6D28\x202C\x3170\x312B\x202C\x6F63\x7970\x7328\x7274\x202C\x6F70\x2873\x2027\x2C27\x7320\x7274\x2B29\x2C31\x3220\x3535\x2C29\x2720\x2720\x3B29\x200D†\x6520\x646E\x0D3B†\x6E65\x3B64\x650D\x646E\x0D3B\x760D\x7261\x200D\x7220\x6E75›\x6F77\x6472\x0D3B†\x7865\x7474›\x7473\x6972\x676E\x0D3B\x6562\x6967\x0D6E†\x6574\x7478\x7461\x7274\x3D3A\x3B37\x6320\x726C\x6373\x3B72\x200D\x6D20\x6E65\x5F75\x6E69\x7469\x6D28\x3B29

menu_insert_main(m, 'ю', '‚');

menu_insert_sub(m, 1, 'Exit', 'x');

fillmenu;

repeat

keybar('Help', '', '', '', '', '', '', '', '', 'Menu');