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