[fpc-pascal] Delphi mode

Carsten Bager carsten at beas.dk
Thu Jul 31 15:58:28 CEST 2008


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;




More information about the fpc-pascal mailing list