Re: [fpc-pascal] Delphi mode

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:

[fpc-pascal] Delphi mode

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