Repeat - pitanje

[ djdmx @ 16.12.2005. 23:14 ] @

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!

[ anon68680 @ 16.12.2005. 23:36 ] @

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.

[ Srki_82 @ 17.12.2005. 01:45 ] @

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.