procedure CheckNotEqualsHex(expected, actual: longword; msg: string = '''''''';
digits: integer=8);
procedure CheckNotNull(obj :IUnknown; msg :string = '''''''');
procedure CheckNull(obj: IUnknown; msg: string = '''''''');
procedure CheckSame(expected, actual: IUnknown; msg: string = '''''''');
procedure CheckSame(expected, actual: TObject; msg: string = '''''''');
procedure CheckNotNull(obj: TObject; msg: string = '''''''');
procedure CheckNull(obj: TObject; msg: string = '''''''');
procedure CheckException(AMethod: TTestMethod; AExceptionClass: TClass;
msg :string = '''''''');
procedure CheckEquals( expected, actual: TClass; msg: string = '''''''');
procedure CheckInherits(expected, actual: TClass; msg: string = '''''''');
procedure CheckIs(obj :TObject; klass: TClass; msg: string = '''''''');
上一页 [1] [2] [3] 没有相关教程
|