FailNotSame method

Applies to
TTestCase

Declaration
Procedure FailNotSame(expected, actual: string; msg: string = ''; errorAddr :Pointer = nil);

Implementation

procedure TTestCase.FailNotSame( expected,
                                 actual    :string;
                                 msg       :string = '';
                                 errorAddr :Pointer = nil);
begin
    Fail(NotSameErrorMessage(expected, actual, msg), errorAddr);
End;


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