Movimentar Cursor no Pascal

[Assign Record]

Como faço para movimentar o cursor no pascal, eu sei que se usa o gotoxy ... mas tipo, por meio do readkey ... o cara pressiona '' d '', no caso ficaria gotoxy(x+1,y) ... essa seria a ideia, mas não consegui fazer ... uso o '' if '' ?

 

[Simon Viegas]

Olá.

 

Depende como você deseja... mas basicamente poderia ser um uma estrutura de seleção mesmo (if e/ou case).

 

Ex.:

tecla:=UpCase(ReadKey); //UpCase = retorna o correspondente em maiúsculo.  (c->C. e=E, F=F mesmo etc)if (tecla='D') then  GotoXY(x+1,y)else  if (tecla='A') then     GotoXY(x-1,y);

É apenas um exemplo da ideia... Claro que você precisa tratar as variáveis, como no "x" e "y", e também os limites da "matriz da tela" (resolução da tela do Pascal, geralmente é 80x25 se não me engano)... e por ai vai.

 

Outros comandos que podem ser úteis:
 

WhereX e WhereY \\caso não conheça, basta dá uma pesquisada

No aguardo.