Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Re: Pascal

Это у тебя на Паскале и на голом экране, я так понял.
Ну так тебе нужно че-то типа
uses
Crt;
var
Key :Char;
y :Integer;

const MnOp :array [1..4] of string = (' Menu1 ', ' Menu2 ', ' Menu3 ', '
Menu4 ');

procedure DrawOp(Bc, Cl, Op :Byte);
begin
TextBackground(Bc); TextColor(Cl);
GoToXY(1, y); Write(MnOp[Op]);
end;

begin
ClrScr;
for y := 2 to 5 do
DrawOp(0, 7, y-1);
y := 2;
DrawOp(7, 0, 1);
repeat
Key := ReadKey;
if Key in [#72,#80] then
begin
DrawOp(0, 7, y-1);
if Key = #72 then
if y = 2 then y := 5 else Dec(y)
else
if y = 5 then y := 2 else Inc(y);
DrawOp(7, 0, y-1);
end;
until Key = #13;
end.
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   "Вадим Шешунов" Sat, 3 Jan 2004 11:17:58 +0200 (#45657)

 

Ответы:

Здравствуйте Вадим,

Saturday, January 3, 2004, 11:17:58 AM, вы писали:

Ответить   Sat, 3 Jan 2004 17:36:05 +0200 (#45781)

 

Hello keel,

Saturday, January 3, 2004, 6:36:05 PM, you wrote:

Это из-за модуля CRT, если где найдешь напиши мне.

Ответить   Sat, 3 Jan 2004 19:16:22 +0300 (#45799)

 

Здравствуйте Вадим,

Saturday, January 3, 2004, 11:17:58 AM, вы писали:

Спасибо, это то что мне нужно!!! Я бы постарался и сам бы сделал(?),
но проблема была в ошибке 200, я думал что это я что-то мужу, а
оказалось не так=)
Спасибо!
Но у меня возник другой вопрос: как отследить что пользователь нажал
Enter, то есть выбрал какой-то пункт меню?

Ответить   Sun, 4 Jan 2004 16:04:50 +0200 (#46254)