CheckSame method

Applies to
TTestCase

Declaration
Procedure CheckSame(expected, actual :IUnknown; msg :string = '');

Implementation

procedure TTestCase.CheckSame(expected, actual: IUnknown; msg :string = '');
begin
    if (expected = actual) then
        exit;
    FailNotSame(PtrToStr(Pointer(expected)), PtrToStr(Pointer(actual)), msg, CallerAddr);
End;


HTML generated by Time2HELP
http://www.time2help.com