[ nnn @ 15.01.2007. 13:34 ] @
Pitanje je gore iz naslova, imam jedan domaci na faksu koji treba da uradim i u sklopu programa treba da se napravi meni, pa sad me zanima kako da detektujem strelice i enter?
Hvala
[ savkic @ 15.01.2007. 15:20 ] @
> Pitanje je gore iz naslova, imam jedan domaci na faksu koji treba da uradim i u sklopu programa treba da se napravi meni, pa sad me zanima kako
> da detektujem strelice i enter?

Vrtiš se u petlji i čitaš ReadKey pa dalje preko case odrediš kod pritisnutog karaktera.
[ morlic @ 15.01.2007. 16:42 ] @
Ovaj program hvata sta je pritisnuto. Kada se pritisne ESC program zavrsava sa radom.

Code:

program trap_key;
uses crt;
var
  c : char;
begin
  c:=#0;
  while c<>#27 do
  begin
    c:=readkey;
    if c=#0 then   { If extended codes, }
    begin
      c:=readkey;  { read the code once more }
      writeln('Extended : ',ord(c));
    end
    else writeln(ord(c));
  end;
end.
[ alxsabo @ 15.01.2007. 19:18 ] @
Ovo isto, ali malo drugacije:

Code:

program trap_key;
uses crt;

var
  c : integer;


function GetKey : Integer
var
  ch : char;
begin
  ch := readkey;
  if ch = 0 then result := readkey + 256
  else result := ch;
end;

begin
  repeat
    c:=GetKey;
    writeln('Code : ',c);
  until c<>27;
end.


[ nnn @ 15.01.2007. 22:49 ] @
Da ali kad iscitam strelicu sa readkey on mi vrati 0?
[ cicos @ 15.01.2007. 23:12 ] @
> Da ali kad iscitam strelicu sa readkey on mi vrati 0?
Pa i treba da vrati 0
Zato ocitas jos jednom tastaturu sa READKEY i tada dobijas to sto treba :o)
To isto vrijedi i za funkcijske tastere, insert,delete,...

Poz
JaMi