Для начальной регистрации тестов можно использовать 2 способа:
Создадим метод начальной регистрации теста
procedure RegisteredTested; begin if GetTestMe.bIsTestCode then begin with GetTestMe.ITestCode do begin L_pIndexUnit:=IRegisterUnit(ltComponents,'Calculator','unit Calculator components'); L_pIndex_DIV := IRegisterClass(TCalcTest_MultiReg.Div_RegisterMethod,TCalcTest_MultiReg.Div_TestMethods,'TCalcTest_MultiReg-DIVIDE','Class Calculater DIVIDE internal created'); end; end else begin ShowMessage('Not find TestMeDllxx.dll'); end; end;
1. Регистрация в секции initialization
initialization RegisteredTested;
2. Регистрация по событию
procedure TForm1.btn_RegTestClick(Sender: TObject); begin RegisteredTested; end;