Define the function configuration, and then call the function
The code is as follows:
UnitUnit1;Interfaceuseswinapi.windows, Winapi.messages, System.sysutils, System.variants, system.classes, Vcl.graphics, Vcl.Controls, Vcl.forms, Vcl.dialogs, Vcl.stdctrls;typeTForm1=class(tform) Memo1:tmemo; Button1:tbutton; procedureButton1Click (Sender:tobject); Private {Private Declarations} Public {Public Declarations} End;varForm1:tform1;Implementation{$R *.DFM}usesSystem.Diagnostics, System.Math;//function DefinitionprocedureShowonmemo (Acount:integer);varM_watch:tstopwatch; I, J:integer;beginJ:=0; M_watch:=tstopwatch.startnew; forI: =0 toAcount Do beginJ:=Max (I, J); End; M_watch.stop; FORM1.MEMO1.LINES.ADD ('Total cycle time:'+m_Watch.ElapsedMilliseconds.ToString);End;//Defining function ConfigurationstypeTintproc=procedure(Num:integer);//TimingprocedureTform1.button1click (sender:tobject);varM_pro:tintproc; M_count:integer;beginM_pro:=Showonmemo; M_count:=2000000; M_pro (m_count);End;End.
Handbook 012: Function Category Configuration