> On Oct 23, 2017, at 4:56 PM, Sven Barth via fpc-pascal
> <fpc-pascal@lists.freepascal.org> wrote:
>
> What exactly are you trying? If the nested function accesses its outer scope
> then it definitely won't work. For that you'd need to wait for anonymous
> function support (which are planned - at least a far as I'm concerned - to
> also support nested functions).
>
I cast DoThis to the type but the arguments are not correct not and a does not
equal 0.
type
TCallback = procedure (a: integer);
procedure DoCallback;
procedure DoThis(a: integer);
begin
writeln(a);
end;
var
callback: TCallback;
begin
callback := TCallback(@DoThis);
callback(100);
end;
Regards,
Ryan Joseph
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
