<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">
<DIV>Actually the Delphi compatible code would be :</DIV>
<DIV> </DIV>
<DIV>
<DIV><FONT face=Calibri><FONT style="FONT-SIZE: 12pt">procedure
TApp.Create(Sender: TObject);</FONT></FONT></DIV>
<DIV><FONT face=Calibri><FONT style="FONT-SIZE: 12pt">begin</FONT></FONT></DIV>
<DIV><FONT face=Calibri><FONT style="FONT-SIZE: 12pt">
MyButton.SetOnClick(<BR> procedure <BR>
begin</FONT></FONT></DIV>
<DIV><FONT face=Calibri><FONT
style="FONT-SIZE: 12pt"> Alert('Button
clicked');</FONT></FONT></DIV>
<DIV><FONT face=Calibri><FONT style="FONT-SIZE: 12pt"> end
);</FONT></FONT></DIV>
<DIV><FONT face=Calibri><FONT
style="FONT-SIZE: 12pt">end;</FONT></FONT></DIV></DIV>
<DIV> </DIV>
<DIV>There is no comas in the procedure declaration.</DIV>
<DIV>We have even created multicast anonymous methods in Mitov.Runtime so you
can add more than one anonymous methods to an event.</DIV>
<DIV> </DIV>
<DIV>
<DIV><FONT style="face: calibri"><FONT style="FONT-SIZE: 12pt">procedure
TApp.Create(Sender: TObject);</FONT></FONT></DIV>
<DIV><FONT style="face: calibri"><FONT
style="FONT-SIZE: 12pt">begin</FONT></FONT></DIV>
<DIV><FONT style="face: calibri"><FONT style="FONT-SIZE: 12pt">
MyButton.OnClick.Add(<BR> procedure <BR>
begin</FONT></FONT></DIV>
<DIV><FONT style="face: calibri"><FONT
style="FONT-SIZE: 12pt"> Alert('Button clicked and
called me');</FONT></FONT></DIV>
<DIV><FONT style="face: calibri"><FONT
style="FONT-SIZE: 12pt"> end )</FONT></FONT></DIV>
<DIV><FONT style="face: calibri"><FONT style="FONT-SIZE: 12pt"> .Add(
<BR><FONT style="face: calibri"><FONT style="size: +0">
procedure <BR> begin</FONT></FONT></DIV>
<DIV><FONT style="face: calibri"><FONT
style="size: +0"> Alert('Button clicked and called
me too');</FONT></FONT></DIV>
<DIV><FONT style="face: calibri"><FONT style="size: +0"> end
);</FONT></FONT></DIV>
<DIV></FONT></FONT><FONT style="face: calibri"><FONT
style="FONT-SIZE: 12pt">end;</FONT></FONT></DIV></DIV>
<DIV> </DIV>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Arial'; COLOR: #000000">With best
regards,<BR>Boian
Mitov<BR><BR>-------------------------------------------------------<BR>Mitov
Software<BR>www.mitov.com<BR>-------------------------------------------------------</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=skalogryz.lists@gmail.com
href="mailto:skalogryz.lists@gmail.com">Dmitry Boyarintsev</A> </DIV>
<DIV><B>Sent:</B> Tuesday, September 23, 2014 7:00 PM</DIV>
<DIV><B>To:</B> <A title=fpc-devel@lists.freepascal.org
href="mailto:fpc-devel@lists.freepascal.org">FPC developers' list</A> </DIV>
<DIV><B>Subject:</B> Re: [fpc-devel] Suggestion: reference counted
objects</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>
<DIV class=gmail_extra>
<DIV class=gmail_quote>
<DIV>About productive code. Should it look like this (note "Test" name is
removed from procedure declaration)?</DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV>
<DIV>procedure TApp.Create(Sender: TObject);</DIV>
<DIV>begin</DIV>
<DIV> MyButton.SetOnClick(procedure; begin</DIV>
<DIV> Alert('Button clicked');</DIV>
<DIV> end);</DIV>
<DIV>end;</DIV></DIV>
<DIV> </DIV>
<DIV>thanks,</DIV>
<DIV>Dmitry</DIV></DIV></DIV></DIV>
<P>
<HR>
_______________________________________________<BR>fpc-devel maillist
-
fpc-devel@lists.freepascal.org<BR>http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel<BR></DIV></DIV></DIV></BODY></HTML>