|
|
| Строка 4: |
Строка 4: |
| | | | |
| | <syntaxhighlight lang="Delphi">TfgAssert = class (TObject)</syntaxhighlight> | | <syntaxhighlight lang="Delphi">TfgAssert = class (TObject)</syntaxhighlight> |
| − |
| |
| − | == Описание ==
| |
| − |
| |
| − | Класс проверки контрактов в коде библиотеке. Отвечает за выполнение базовых проверок. Работает только в DEBUG конфигурации. Во всех остальных проверки вырезаются. По умолчанию, все нарушения выводятся в системный лог устройства.
| |
| − |
| |
| − | == Методы ==
| |
| − |
| |
| − | {| class="wikitable sortable"
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">IsTrue(const AValue: Boolean; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">IsFalse(const AValue: Boolean; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">IsNotNil(const AValue: IInterface; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">IsNotNil(const AValue: TObject; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">IsNotNil(const AValue: TClass; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">IsClass(const AValue: TObject; const AClass: TClass; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">Implements(const AValue: TObject; const AInterface: TGUID; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">InRange(const AValue: Integer; const ALow: Integer; const AHigh: Integer; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">InRange(const AValue: Extended; const ALow: Extended; const AHigh: Extended; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">InRange(const AValue: Single; const ALow: Single; const AHigh: Single; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">StrickLessThan(const AValue: Integer; const AHigh: Integer; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">StrickLessThan(const AValue: Extended; const AHigh: Extended; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">StrickLessThan(const AValue: Single; const AHigh: Single; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">StrickMoreThan(const AValue: Integer; const ALow: Integer; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">StrickMoreThan(const AValue: Extended; const ALow: Extended; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">StrickMoreThan(const AValue: Single; const ALow: Single; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">LessAndEqualThan(const AValue: Integer; const AHigh: Integer; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">LessAndEqualThan(const AValue: Extended; const AHigh: Extended; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">LessAndEqualThan(const AValue: Single; const AHigh: Single; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">MoreAndEqualThan(const AValue: Integer; const ALow: Integer; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">MoreAndEqualThan(const AValue: Extended; const ALow: Extended; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">MoreAndEqualThan(const AValue: Single; const ALow: Single; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">AreEqual(const AValue1: Integer; const AValue2: Integer; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">AreEqual(const AValue1: Extended; const AValue2: Extended; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">AreEqual(const AValue1: Single; const AValue2: Single; const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |-
| |
| − | | <syntaxhighlight lang="Delphi">procedure</syntaxhighlight> || <syntaxhighlight lang="Delphi">Fail(const AMessage: string)</syntaxhighlight>
| |
| − |
| |
| − | |}
| |
| − |
| |
| − | == Свойства ==
| |
| − |
| |
| − | {| class="wikitable sortable"
| |
| − | |-
| |
| − | | <code>property</code> || <code>FailCallback: TAssertFailCallback</code>
| |
| − | Коллбек, который вызывается в случаях нарушения контракта.
| |
| − | |}
| |
