Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako detektovati strelice i enter u pascalu

[es] :: Pascal / Delphi / Kylix :: Kako detektovati strelice i enter u pascalu

[ Pregleda: 2589 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.etf.bg.ac.yu.



+87 Profil

icon Kako detektovati strelice i enter u pascalu15.01.2007. u 13:34 - pre 210 meseci
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
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kako detektovati strelice i enter u pascalu15.01.2007. u 15:20 - pre 210 meseci
> 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.
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.dynamic.sbb.co.yu.



+1 Profil

icon Re: Kako detektovati strelice i enter u pascalu15.01.2007. u 16:42 - pre 210 meseci
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.
 
Odgovor na temu

alxsabo
aleksandar sabo
Novi Sad

Član broj: 125775
Poruke: 19
*.ptt.yu.

Sajt: www.aleksandarsabo.info


Profil

icon Re: Kako detektovati strelice i enter u pascalu15.01.2007. u 19:18 - pre 210 meseci
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.


Inspiration exists, but it has to find us working.
 
Odgovor na temu

nnn
Tech Lead
Haxr.io
Beograd

Član broj: 16743
Poruke: 679
*.yubc.net.



+87 Profil

icon Re: Kako detektovati strelice i enter u pascalu15.01.2007. u 22:49 - pre 210 meseci
Da ali kad iscitam strelicu sa readkey on mi vrati 0?
 
Odgovor na temu

cicos

Član broj: 3683
Poruke: 67
*.net
Via: [es] mailing liste



+1 Profil

icon Re: Kako detektovati strelice i enter u pascalu15.01.2007. u 23:12 - pre 210 meseci
> 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
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako detektovati strelice i enter u pascalu

[ Pregleda: 2589 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.