amazing24
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
при запуске модуля выдает ошибку неизвестный идентификатор x, подскажите плиз что делать
unit menu;
interface
uses crt;
type TM=array [1..5] of string [10];
procedure ramka(x,y,m,n,colt,colf:byte);
procedure form_menu(menu:TM;x,y,n,colt,colf:byte);
function move_menu(menu:TM;x,y,n,colt,colf:byte):byte;
implementation
procedure ramka;
var i:byte;
begin
window(x,y,x+m,y+n);
textcolor(colt);
textbackground(colf);
clrscr;
write(#201);
for i:=1 to m-2 do
write(#205);
write(#187);
for i:=2 to n-1 do begin
gotoxy(1,i);write(#186);
gotoxy(m,i);write(#186);
end;
gotoxy(1,n);write(#200);
for i:=1 to m-2 do
write(#205);
write(#188);
end;
procedure form_menu;
var i:byte;
begin
ramka(x,y,sizeof(menu[1])+2,n+2,colt,colf);
gotoxy (2,2);
highvideo;
write(menu[1]);
lowvideo;
for i:=2 to n do begin
gotoxy(2,i+1);
write(menu[i]);
end;
gotoxy(2,2);
end;
function move_menu;
var i:byte;c:char;
begin
form_menu(menu,x,y,n,colt,colf);
i:=1;
repeat
c:=readkey;
case c of
#72: begin
lowvideo;
write(menu[i]);
if i=1 then i:=n
else i:=i-1;
highvideo;
gotoxy(2,i+1);
write(menu[i]);
gotoxy(2,i+1);
end;
#80: begin
lowvideo;
write(menu[i]);
if i=n then i:=1
else i:=i+1;
highvideo;
gotoxy(2,i+1);
write(menu[i]);
gotoxy(2,i+1);
end;
end;
until (c=#13) or (c=#27);
if c=#13 then move_menu:=i
else move_menu:=n+1;
end;
end. |
