[fpc-pascal] Delphi mode

[Carsten Bager]

Is there another way writing this without activating Delphi mode.

Carsten



type
  tKeypressed=function:boolean;

Var
pKeypressed:tKeypressed;


Function Keypressed:boolean;

Implementation

Function Keypressed:boolean;
Begin
  if pointer(pKeypressed)<>nil then
    Keypressed:=pKeypressed
  else Keypressed:=false;
End;

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal