Меню в Паскале

В Turbo pascal меню можно создать как в графическом, так и в текстовом режиме. Каждый пункт меню соответствует элементу массива. Элементами массива могут быть записи с полями: координаты отображения, надпись и другие.

Function MainMenu(R_Select:Byte):Byte;

Type TMenu = record

X,Y : Byte;

S : String[20];

End;

Var Menu : Array [0..MaxMenuItem] Of TMenu;

При нажатии на клавишу клавиатуры происходит проверка кода #72(вверх), #80(вниз) и #13(ввод). Соответственно при нажатии Enter происходит вход в меню, а при нажатии клавиш со стрелками процедуры выбора Select и отрисовки всего меню DrawMenu

Procedure DrawMenu;

Var I : Byte;

Begin

   For I := 0 To MaxMenuItem Do

   Begin

      GotoXY(Menu[I].X, Menu[I].Y);

      Write(Menu[I].S);

   End;

End;

Procedure Select (I:Byte);

Begin

TextBackground(TC); TextColor(TB);

GotoXY(Menu[I].X, Menu[I].Y);

Write(Menu[I].S);

TextBackground(TB); TextColor(TC);

End;

Таким образом, в pascal меню прорисовывается в бесконечном цикле, условие выхода из которого будет нажатая клавиша Enter(#13) или Esc(#27).

Скачать:

Меню - Текстовое меню на Паскале

Menu - 4-х пунктное меню в Паскале

Меню в Dos - Меню под MS-DOS на pascal