TestingStarts method |
Applies to
TTestResult
Declaration
Procedure TestingStarts;
Implementation
procedure TTestResult.TestingStarts; var i :Integer; begin for i := 0 to fListeners.count - 1 do begin (fListeners[i] as ITestListener).TestingStarts; end; End; |
|