destroy method |
Applies to
TTestResult
Declaration
Destructor destroy;
Implementation
destructor TTestResult.destroy; var i: Integer; begin fListeners := nil; for i := 0 to fErrors.Count - 1 do begin TTestFailure(fErrors[i]).Free; end; fErrors.Free; for i := 0 to fFailures.Count - 1 do begin TTestFailure(fFailures[i]).Free; end; fFailures.Free; inherited Destroy; End; |
|