Something is wrong with this code, but I can't decide what it is

[paweld]

@440bx: Looks like Consolas. Some fonts for comparison: https://forum.lazarus.freepascal.org/index.php/topic,70446.msg549165.html#msg549165

[ALLIGATOR]

Never thought about it, the default font

[Thaddy]

What I meant is:

Code: Pascal  [Select][+][-]

1. {$mode objfpc}
2. {$modeswitch functionreferences}
3. type
4.   TProcedureRef = reference to Procedure;
5.   procedure hello;
6.   begin
7.     writeln('hello');
8.   end;;
9. var
10.   p:TProcedureRef;
11. begin
12.   p:=@hello;// maybe mode delphi accepts: p:=hello()
13.   p();
14. end.

Untested.

[440bx]

Thank you @paweld and
Thank you ALLIGATOR.

That font looked quite readable, for that reason I wanted to know which one it was.

[Thaddy]

@ALLIGATOR
Answer to original question:

Code: Pascal  [Select][+][-]

1. program project1;
2. {$ifdef fpc}
3. {$mode delphi}
4. {$modeswitch anonymousfunctions}
5. {$modeswitch functionreferences}
6. {$endif}
7. type
8.   TMyProc = reference to procedure (value: NativeInt); // <<------reference----
9.  
10. procedure Test(const anonproc:TMyProc);
11. begin
12.   anonproc(33);
13. end;
14.  
15. procedure Run;
16. begin
17.   Test(procedure (value: NativeInt)
18.        begin
19.          WriteLn('Anon value = ', value);
20.        end);
21. end;
22.  
23. begin
24.   Run;
25.   ReadLn;
26. end.

Small change, but that is what I meant: it should be a reference.
Btw: highly contrived code you wanted, but it works now.

This is actually another example of combining anonymous methods and function references similar to what I gave last week.