equal
deleted
inserted
replaced
21 unit uDebug; |
21 unit uDebug; |
22 |
22 |
23 interface |
23 interface |
24 |
24 |
25 procedure OutError(Msg: shortstring; isFatalError: boolean); |
25 procedure OutError(Msg: shortstring; isFatalError: boolean); |
26 //procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline; |
26 //procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
27 function checkFails(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
27 function checkFails(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
28 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
28 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
29 |
29 |
30 var |
30 var |
31 allOK: boolean; |
31 allOK: boolean; |