Runtime Error in console app.

[AlistairG]

Hi wanting to test pollkeyevent I took this sample code below from here:
http://www.freepascal.org/docs-html/rtl/keyboard/pollkeyevent.html

New Project, Item 2; Program (also tried Item 3 console app)
compiler settings a gtk2 beta, but also tried no gui
Anyone with the time please try to compile and advise thanks.
Get a debug error each time I try to run this:

Code: [Select]

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,keyboard
  { you can add units after this };

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

Var
  K : TKeyEvent;

begin
 InitKeyBoard;
  Writeln('Press keys, press "q" to end.');
  Repeat
    K:=PollKeyEvent;
    If k<>0 then
      begin
      K:=GetKeyEvent;
      K:=TranslateKeyEvent(K);
      writeln;
      Writeln('Got key : ',KeyEventToString(K));
      end
    else
      write('.');
  Until (GetKeyEventChar(K)='q');
  DoneKeyBoard;
end.

[Leledumbo]

Works fine here (Kubuntu 10.10, FPC 2.5.1 about 2 weeks ago)

[AlistairG]

Works fine here (Kubuntu 10.10, FPC 2.5.1 about 2 weeks ago)

FPC 2.4.0 i386-linux-gtk 2 (beta)
Hi did you make it same way - 2nd option Program (not console). It could be my compiler, but its unlikely. More than likely my settings are amiss.
Thanks.

[Leledumbo]

Hi did you make it same way - 2nd option Program (not console). It could be my compiler, but its unlikely. More than likely my settings are amiss.

It has nothing to do with Lazarus. Now before we go any further: what runtime error do you get?

[AlistairG]

Also it compile warning:
pollkeyevent.pas(21,16) Fatal: Syntax error, "." expected but ";" found

K:=PollKeyEvent;  <<warn here