Potrebujem, aby AK UŽÍVATEĽCHCE sa prvky vypisovali samé, ale ak to chce urýchliť, stlačí klávesu a tým preskočí delay.Kód: Vybrať všetko
for i := 1 to vsetkyPrvky do
begin
if keypressed then
begin
VypisOstavajucePrvky();
break;
end;
VypisDalsiPrvok();
delay(1000);
end;
Kód: Vybrať všetko
for i := 1 to vsetkyPrvky do
begin
if keypressed then VypisPrvok()
else
begin
VypisPrvok();
delay(1000);
end;
end;Kód: Vybrať všetko
for ...
begin
d_time := 1000;
if keypressed then d_time := 500;
VypisPrvok ();
delay ( d_time );
end;
Program si zapamätá, že bola stlačená klávesa a i napriek tomu že som ju stlačil iba raz, tak sa chová ako by som ju stláčal stále. To znamená, že príkaz d_time:=1000; sa vykoná iba raz a po stlačení klávesu už nie.
Kód: Vybrať všetko
if keypressed then d_time := 500;Kód: Vybrať všetko
if keypressed then begin
d_time := 500;
keypressed := false;
end;Kód: Vybrať všetko
keypressed:=false;Kód: Vybrať všetko
Error 122: invalid variable referenceKód: Vybrať všetko
procedure vypis (matX:matica; mvs:integer); {mvs - "Matice Vedla Seba :-)"}
var i,j:byte;
e:char;
d_time:integer;
X_s:string; {X_s - prvok matice na string, kvoli vypisu}
begin
d_time:=2000;
interfejs;
for i:=1 to rozmer do
for j:=1 to rozmer do
begin
if keypressed then
begin
e:=readkey;
case e of
#0:begin
e:=readkey;
case e of
#72: d_time:=d_time+500;
#80: d_time:=d_time-500;
end;
end;
#27:break;
end;
end;
str(matX[i,j],X_s);
write_all(X_s,3*j+mvs,i+3,stred,0);
if (d_time<=500) then d_time:=500;
if (d_time>=2000) then d_time:=2000;
delay(d_time);
end;
end;