REPEAT UNTIL wciśnięcie klawiasza ENTER

0

Co zrobić, zęby procedura REPEAT UNTIL kończyła swoje zadanie po wciśnięciu klawisza ENTER?

0

w pascalu
repeat until keypressed and (readkey = #13);

w delphi
keypreview na true
i w onkeypress
if Key = #13 then WatekWKtorymRobiszPetle.Terminate;

0

Hmmm. Pojawił się pewien problem. Na OPSSie zakazane jest stosowanie biblioteki CRT, a jest ona niezbędna do użycia readkeya.
Dozwolone są biblioteki:
C: stdio.h, math.h, string.h, stdlib.h, ctype.h, strings.h,
C++: takie jak w C, iostream, biblioteki STL (Standard Templates Library),
Pascal: sysutils, math, strings

A jak zastosuję REPEAT UNTIL eoln; to mi program konczy pracę po wstawieniu 3 linijek, chociaż ustawiam, że ma wprowadzić 10 linijek :/

0

Crt nie możesz a o asm pisali? Jak nie to masz procedurki.

FUNCTION KeyPressed: Boolean; ASSEMBLER;
ASM
  mov  AH, 0Bh
  int  21h
  and  AL, 0FFh
end;

FUNCTION ReadKey: Char; ASSEMBLER;
ASM
  mov  AH, 07h
  int  21h
END;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0