Реферат: Взаимодействие основных частей ЭВМ при выполнении программы
N: Byte;
begin
ClearDevice;
MainWin;
N := 0;
|
ArrowsAndEsc := [Back, Next, F1, Esc];
repeat
ExtentedKey := False;
Flag := False;
CH := ReadKey;
if CH = Esc then
Flag := True;
if CH = #0 then
begin
CH := ReadKey;
ExtentedKey := True
end;
if ExtentedKey then
case CH of
Back: begin
Dec(N);
SelectPage(N);
if N < 1 then N := 1
end;
Next: begin
Inc(N);
SelectPage(N);
if N > 4 then N := 4
end;