TestMe.pas

Main function GetTestMe returns a pointer to record TRecITestMe which contains the interfaces of the function blocks. Description PTRecITestMe

 Function GetTestMe:PTRecITestMe;

Example:

initialization
  if GetTestMe.bIsTestCode then begin
     with GetTestMe.ITestCode do begin
        TForm1.F_pIndexClass := IRegisterClass(TForm1._RegisterMethod,TForm1._TestMethods,'TForm1','Test many reg methods');
     end;
  end;