Carsten Bager wrote:
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

Changing to Keypressed := pKeypressed() ?

  else Keypressed:=false;
End;

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

Reply via email to