как сделать меню в паскале?

[Bandit228]

вобщем надо сделать меню, 13 кнопок и при нажатии мышкой выполняется определенное действие. помогите плз.


вот типа такого, еще чтоб можно было на кнопке там букву или цифру написать)

[dimka123]

глянь тут http://www.cyberforum.ru/pascalabc/thread214183.html
а я предложу через case сделать

[Bandit228]

мне впринципе без кнопок надо, так вроде легче даже сделать

[Вадим Мошев]

Вот пример:

While true do
             begin
                 WriteLn;
                Writeln('1 - Show List'); wt; {здесь wt - это writeLn;}
                WriteLn('2 - Add to list end');  wt;
                WriteLn('3 - Erase element # i');  wt;
                WriteLn('4 - Erase list');   wt;
                WriteLn('5 - Get i-th element! '); wt;

                case readkey of
                '1': ShowList;
                '2': AddN;
                '3': begin
                     ClrScr; Writeln;
                     Write('Erase = '); Read(i);
                     Erase(i);
                     end;
                '4': Allerase;
                '5': begin
                     ClrScr; Writeln;
                     Write('Get = '); Read(i);
                     el:=GetElement(i);
                     If el = nil then WriteLn('ERROR!')
                                 else WriteLn('element = ',  El^.data);

                     end;

                #27, #13: Begin allErase; exit end;
               end;
             end;

[Bandit228]

непонятно, он не компилируется даже

[Вадим Мошев]

Так это пример просто. Подставляете свои данные и компилируете.

[Stilet]

Мои пять коп: http://www.programmersforum.ru/showthread.php?t=45028