Опять про меню, В одной процедуре Опции

[1234]

Изучивши предложенные варианты и впоследствии систематизировав их, я понял что это не то. А вот те критерии, которые считаю главенствующими в моём представлении о меню:
1)Небольшое(20-40 строк)-иначе говоря для чайников;
2)Расположенное только в процедуре(НЕ в модуле и основной программе)-чтобы, как говорится с места в карьер;
3)Управление меню только КЛАВИШАМИ (точнее стрелками "вверх" и "вниз"). Причём указанная в данный момент (как бы её назвать) титра должна делать вид, что именно её на даный момент выбрали;
4)Прежде чем спросить про язык, на которым я ПРОШУ написать меню, просто вспомните название сайта;
5)Всего 3 титры.
За сим удаляюсь с большой надеждою, всегда ваш 1234.

Сообщение отредактировано: 1234 - 2.02.2007 18:04

[1234]

Не мешало бы мсье TarasBerу написать комментарии к данной функции. А тем временем у меня уже немного другое обращение к функции. И где должна стоять GAME ничего не стоит, т.к. запускается она в основной программе позже. Кстати, налицо небольшой глюк-меню появляется, когда Press any key.

While c<>#98 do
     Begin
       C:=Readkey;
       Case Menu('New'#13'option'#13'Exit') of
         0: C:=#98;
         1: OutTextXY(140,90,'Hello');
         2: Exit;
       End;
       Case Menu('Easy'#13'Medium'#13'Hard'#13'Back') of
         0:
           Begin
             Sl:=50;
             C:=#98;
           End;
         1:
           Begin
             Sl:=100;
             C:=#98;
           End;
         2:
           Begin
             Sl:=1;
             C:=#98;
           End;
         3:  C:=#4;
      end;

А, кстати, что это у меня репутация -1. Где меня успела настигнуть дурная слава.

Сообщение отредактировано: 1234 - 4.02.2007 20:12