dwa pytanka

0
  1. jak ukryc kursor textowy w pascalu
  2. jak zrobic, zeby w petli, po nacisnieciu jakiegos klawisza byla jakas akcja?
0

Część mojego programu napisanego 1999-04-15 - o w mordę - ale to dawno 8-0.
A może ja już taki stary :-P.

Wszystko, czego Ci trzeba:

Procedure Wyswietl;
var ch:char;
    Ext:boolean;
begin
     asm mov cx,2000h;mov ah,1;int 10h;end; {Hide cursor}
     Ext:=False;
     Repeat
           ch:=ReadKey;
           if ch=#0 then ch:=ReadKey;
           case ch of
                #$48:begin{Up}
                     end;
                #$50:begin{Down}
                     end;
                #32:begin{Space}
                    end;
                #27:Ext:=True;
           end;
     Until Ext=True;                     {Esc = Exit}
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1