administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Make KeyPressed act hand by hand with ReadKey (#3036)

Browse source
This commit is contained in:
bormant 2024-02-01 22:08:40 +03:00 committed by GitHub
parent 087a00b636
commit e17dd66fd5
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bin/Lib/CRT.pas
View file

@ -155,9 +155,9 @@ function ReadKey: char;// TODO продумать это
var
KeyInfo: ConsoleKeyInfo;
begin
if NextKey <> Chr(0) then
if NextKey <> #0 then
begin
ReadKey := nextkey;
ReadKey := NextKey;
NextKey := #0;
end
else
@ -172,7 +172,7 @@ end;
function KeyPressed: boolean;
begin
KeyPressed := Console.KeyAvailable;
KeyPressed := (NextKey <> #0) or Console.KeyAvailable;
end;
function WindowWidth: integer;
@ -300,4 +300,4 @@ end;
begin
//zdes oshibka ISConsoleApplication u nas nikogda ne inicializiruetsja
__InitModule;
end.
end.