On 14 June 2023 20:59:41 +0200, "Rafael Picanço via fpc-pascal"
<fpc-pascal@lists.freepascal.org> wrote:
Hi Rafael,
>I am trying to follow your advice and use units instead:
>
>const
> EXTERNAL_DEV_NONE : TGetExButtonStatesFunction = Pointer(0);
>
>However I am receiving an error:
>
>Error: Incompatible types: got "Pointer" expected "<procedure variable type
>of function(PCCDBS):LongInt;CDecl>"
>
>Please, can you shed some light on this?
I can't test it right now, but I believe that
const
EXTERNAL_DEV_NONE : TGetExButtonStatesFunction =
TGetExButtonStatesFunction (Pointer(0));
(i.e. with an explicit typecast to the required type) should work.
Tomas
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
