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

Repeat - pitanje

[es] :: Pascal / Delphi / Kylix :: Repeat - pitanje

[ Pregleda: 3235 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

djdmx
Zvonimirova
Zagreb

Član broj: 45078
Poruke: 18
*.cmu.carnet.hr.



Profil

icon Repeat - pitanje16.12.2005. u 23:14 - pre 201 meseci
JEl netko zna kako da zaustavim repeat petlju na točno određenu tipku s tipkovnice? Znači kada stistnem 'x' da mi se zaustavi petlja. Kad probam readkey petlja se zaustavi sve dok ne stisnem enter a onda mi petlja nema smisla. Znači ja hoću da mi se petlja izvšava stalno i kad mi dođe da stisnem 'x' tada nek se zaustavi. JEL MI MOŽE NETKO POMOĆI! HITNO!
truly educated never graduate
 
Odgovor na temu

anon68680

Član broj: 68680
Poruke: 528
213.137.127.*



+14 Profil

icon Re: Repeat - pitanje16.12.2005. u 23:36 - pre 201 meseci
mozda u onkeypress event stavis neshto tipa
var
f:integer;
if key=#23 then
f:=1;
a u repeat petlju stavis
repeat
something;
until f=1;
end;
ovo govorim iz glave neam pojma mozda i ne radi.
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Repeat - pitanje17.12.2005. u 01:45 - pre 201 meseci
Pretpostavljam da radis u TP kad spominjes ReadKey... toga nema u Delphi-u.

Problem je jednostavan:
Code:
function MyReadKey: Char;
begin
  if KeyPressed then
    MyReadKey := ReadKey
  else
    MyReadKey := #0;
end;

begin
  Repeat
    // Radi nesto
  Until UpCase(MyReadKey) = 'X';
end.

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Repeat - pitanje

[ Pregleda: 3235 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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