Repeat - pitanje

Odgovori Nova tema

2 odgovora
4.424 pregleda

Repeat - pitanje 17.12.2005. u 00:14 · pre 254 meseca #1

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!

Potpis

truly educated never graduate

Re: Repeat - pitanje 17.12.2005. u 00:36 · pre 254 meseca #2

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.

Re: Repeat - pitanje 17.12.2005. u 02:45 · pre 254 meseca #3

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.

Potpis

Play Store

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme