Меню из процедур. Листать стрелками.

[qoTIuHr]

Напишите пожалуйста не большой пример вертикального меню из процедур, которые можно листать стрелками на клавиатуре. То есть даны две или больше процедур, нужно сделать так ,чтобы они были в начальном меню на выбор для выполнения, и их можно было листать, после чего на Enter активировать.
Буду очень рад если сделаете какое-либо объяснение кода в комментариях "{}". Заранее спасибо.

[Krasiosoft]

Сделал так:

uses crt;

const Menu: array[0..3] of string=('Exit','Func 1','Func 2','Func 3');
const Arrow: string=' <--';
var CurrChoice:integer;

procedure DrawArrow(n:integer; draw:boolean);
var i:integer;
begin
    gotoxy(Length(Menu[n])+1, n+1);
    if draw then
    begin
        write(Arrow);
        CurrChoice:=n;
    end
    else
    begin
        write(' ':Length(Arrow));
    end;
end;

procedure InitMenu(n:integer);
var i:integer;
begin
    ClrScr;
    cursoroff;
    for i:=0 to High(Menu) do
        writeln(Menu[i]);
    if (n < 0) or (n > High(Menu)) then n:=0;
    DrawArrow(n,true);
end;

procedure DeinitMenu;
begin
    cursoron;
    ClrScr;
end;

procedure Change(n:integer);
begin
    if (n >= 0) and (n <= High(Menu)) then
    begin
        DrawArrow(CurrChoice,false);
        DrawArrow(n,true);
    end;
end;

function ShowMenu(n:integer):integer;
var ch:char;
begin

    InitMenu(n);

    repeat
        ch:=ReadKey;
        if ch = #0 then
        begin
            ch:=ReadKey;
            case ch of
                #80: Change(CurrChoice+1);
                #72: Change(CurrChoice-1);
            end;
        end;
    until ch=#13;

    DeinitMenu;

    result:=CurrChoice;
end;


procedure func1;
begin
    writeln('func1');
    writeln('Press any key');
    readkey;
end;

procedure func2;
begin
    writeln('func2');
    writeln('Press any key');
    readkey;
end;

procedure func3;
begin
    writeln('func3');
    writeln('Press any key');
    readkey;
end;



var n:integer;
begin
    n:=1;
    repeat
        n := ShowMenu(n);
        case n of
            1: func1;
            2: func2;
            3: func3;
        end;
    until n=0;

    writeln('Exit');
    writeln('Press any key');
    readkey;
end.

Думаю, что тут все понятно должно быть. Если все же что-то не ясно, то спрашивайте.

[qoTIuHr]

Это на TP 7.0?. Выдает ошибку на

procedure InitMenu(n:integer);
var i:integer;
begin
    ClrScr;
    cursoroff; (!ТУТ!) "Unknow identifier"
    for i:=0 to High(Menu) do
        writeln(Menu[i]);
    if (n < 0) or (n > High(Menu)) then n:=0;
    DrawArrow(n,true);
end;

А нельзя такое сделать на метках Label и goto?. Или так не получится?.

[Stilet]

Такое подойдет?: http://www.programmersforum.ru/showthread.php?t=45028

[Krasiosoft]

Сообщение от qoTIuHr

Это на TP 7.0?. Выдает ошибку на

cursoroff; (!ТУТ!) "Unknow identifier"

Тогда просто уберите вызов функции cursoroff и cursoron. Но тогда будет показываться курсор в меню выбора.

Я делал это на FreePascal.

А модуль crt в TP 7.0 не содержит функций отключения и включение отображения курсора?

Сообщение от qoTIuHr

А нельзя такое сделать на метках Label и goto?. Или так не получится?.

Получится, но для чего это нужно, если можно все сделать через процедуры/функции?