freepascal.ru

Ситуация в том что программа не реагирует на нажатие клавиш, за исключением определенных случаев.

1) если не вызывать ф-цию stPop (либо дважды вызывать перед ней stPush)
2) если превратить ф-ции stPop и stPush в процедуры (вырезав только result:=)
3) если подключить модуль crt, и использовать родной readkey из стандартной библиотеки crt

Собственно вопрос в том, в чём может быть дело (и есть ли грубые ошибки)? Понимаю, что моя ф-ция readkey "кривая", но если дело в ней то почему программа корректно работает в первых двух случаях ?
fpc 2.6.4

Код: Выделить всё

{$MODE OBJFPC}
program main;
//uses crt;
uses keyboard;

type
  PList = ^TList;

  TList = record
    Data: byte;
    prev: PList;
    Next: PList;
  end;

var
  c:char;
    dat:byte;
  st:Plist;

function readkey(iswait: boolean = False): char;
var
  key: tkeyevent;
begin
  if iswait = True then
    Key := PollKeyEvent;
  if key <> 0 then
  begin
    Key := GetKeyEvent;
    Key := TranslateKeyEvent(Key);
  end;
  Result := GetKeyEventChar(Key);
end;

function stEmpty(aList: Plist): boolean;
begin
  Result := (aList = nil);
end;   

function stPush(var aList: PList; aData: byte): PList;
var
  p: PList;
begin
  new(p);
  p^.Data := aData;
  p^.prev := aList;
  alist := p;
  Result := p;
end;

function stPop(var aList: PList; var aData: byte): PList;
var
  p: PList;
begin
  Result := nil;
  if stEmpty(aList) then
    exit;

  p := alist;
  alist := alist^.prev;
  Result := p^.prev;
  dispose(p);

end;

                   

begin
initkeyboard;
stPop(st,dat);

repeat
c:=readkey;
//------
until c=#27;



end.

А если поменять цикл на цикл с предусловием?

поменял на:

Код: Выделить всё

while c<>#27 do begin
c:=readkey;
//------
end;

результат тот же =(

kkrk писал(а):в чём может быть дело

stPush или stPop переписывают не принадлежащую их переменным память, например. Куда случайно попадает значение результата readkey.
Не берусь утверждать, так это или нет, но у вас там указатели, с которыми вы делаете нечто. Нигде не ошиблись?

ps: Цикл с предусловием - вообще шикарно. Проверка значения неинициализированной переменной.

ps: Цикл с предусловием - вообще шикарно.

проверка на Esc до того как считывается клавиша ? Да, фейл.

Вообщем ошибка в readkey ( if key <> 0 then ):

Код: Выделить всё

function readkey(iswait: boolean = False): char;
var
  key: tkeyevent;
begin
  if iswait = True then
    Key := PollKeyEvent;
  if key <> 0 then
  begin
    Key := GetKeyEvent;
    Key := TranslateKeyEvent(Key);
  end;
  Result := GetKeyEventChar(Key);
end;

Самое странное то, что если stPop и stPush объявлены не как ф-ции, а как процедуры то эта ошибка никак себя не проявляет.

Можно закрывать)

SSerge писал(а):ps: Цикл с предусловием - вообще шикарно. Проверка значения неинициализированной переменной.

Упс....

Да все нормально - обычные последствия спонтанного изменения битов ОЗУ-ячеек