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); inline; |
|
27 function checkFails(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
27 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
28 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
28 |
29 |
29 var |
30 var |
30 allOK: boolean; |
31 allOK: boolean; |
31 |
32 |
48 begin |
49 begin |
49 if not Assert then |
50 if not Assert then |
50 OutError(Msg, isFatal) |
51 OutError(Msg, isFatal) |
51 end; |
52 end; |
52 |
53 |
|
54 function checkFails(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
|
55 begin |
|
56 if not Assert then |
|
57 OutError(Msg, false); |
|
58 |
|
59 allOK:= allOK and (Assert or (not isFatal)); |
|
60 checkFails:= (not Assert) and isFatal |
|
61 end; |
|
62 |
53 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
63 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
54 var s: shortstring; |
64 var s: shortstring; |
55 begin |
65 begin |
56 if not Assert then |
66 if not Assert then |
57 begin |
67 begin |