Разбираю исходник клавиатурного модуля - без клавы висит написание нужной и полезной проги. CRT не устраивает по причине сканирования клавы в другом окне. Не в том в котором нужно. Имеем фагденты кода:



В оригинале массив имел длину[0..0], но прежде массивы локальных переменных с такой длиной глючили при выполнении проги. Посему увеличил длину с запасом. Можно ли вообще использовать в ФПЦ безразмерные массивы.
Переменная numkeys всё время возращает одно и то же число, предположительно номер элемента массива или его полезную длину. Но возникла проблема: как значение элемента массива типа PBoolArray записать в переменную типа BYTE и наоборот?

Ну, вообще-то

Type
  PBoolArray = Array Of ByteBool;

и, соответственно, SetLength, вроде никто не отменял...

TypeCast... Что-то в таком вот духе:

Type
  PBoolArray = ^BoolArray;
  BoolArray  = Array[0..4000] of ByteBool;

var
  pa: PBoolArray;
  b: byte;

begin
  pa := new(PBoolArray);

  b := 1;
  pa^[10] := bytebool(b);

  b := byte(pa^[10]);
end.