Что представляет с себя буфер клавиатуры? Где он хранится и каковой его размер?
И как вот этот код
Цитата
while keypressed do readkey;
или
repeat
readkey
until not keypressed;
его очищает?
while keypressed do readkey;
repeat
readkey
until not keypressed;
program Code;
uses
Crt;
var
KStart: Word absolute $40:$1A;
{ адрес начала (откуда считывается) очереди данных клавиатуры }
KEnd: Word absolute $40:$1C;
{ адрес конца (куда записывается) очереди данных клавиатуры }
KBuf: array[0..15] of Word absolute $40:$1E;
{ собственно, буфер - 16 записей по 2 байта (ASCII-, Scan-код) }
{ - если очередь пуста, то KStart = KEnd }
{ - если очередь переполнена, то KEnd указывает на запись перед KStart }
var
i, is, ie: Integer;
begin
ClrScr;
repeat
is := (KStart - Ofs(KBuf)) shr 1;
ie := (KEnd - Ofs(KBuf)) shr 1;
GotoXY(1, 1);
Writeln('ASCII':14, ' Scan');
Writeln;
for i := 0 to 15 do
begin
if i = ie then
Write('KEnd -> ')
else if i = is then
Write('KStart ->')
else
Write(' ');
Writeln(Lo(KBuf[i]):4, Hi(KBuf[i]):4);
end;
until Lo(KBuf[(ie - 1) and $F]) = 27;
end.
uses
SDL, SDL_Video, SDL_Events;
const
width = 720;
height = 400;
colordepth = 32;
var
screen: PSDL_Surface;
image: PSDL_Surface;
event: PSDL_Event;
done: Boolean;
filename: String;
label 1;
begin
SDL_Init(SDL_INIT_VIDEO);
event := new(PSDL_Event);
screen := SDL_SetVideoMode(width, height, colordepth, (SDL_FULLSCREEN + SDL_SWSURFACE));
if screen = nil then
begin
writeLn ('Couldn''t initialize video mode at ', width, 'x', height, 'x', colordepth, 'bpp');
halt(1);
end;
filename := '0.bmp';
image := SDL_loadBMP(@filename[1]);
if (image = nil) then
begin
writeLn('Couldn''t load ' + filename);
halt(1);
end;
if (SDL_BlitSurface(image, nil, screen, nil) < 0) then
begin
writeLn('BlitSurface error:' {+ SDL_GetError()});
end;
SDL_updateRect(screen, 0, 0, image^.w, image^.h);
SDL_freeSurface(image);
done := FALSE;
while (done = FALSE) do
begin
if (SDL_PollEvent(event) > 0) then
begin
CASE event^.eventtype OF
SDL_KEYDOWN, SDL_MOUSEBUTTONDOWN :done := TRUE;
end;
end;
end;
SDL_freeSurface(screen);
SDL_Quit ;
end.