equal
deleted
inserted
replaced
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 procedure SDLTry(Assert: boolean; Msg: shortstring; isFatal: boolean); |
27 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
|
28 |
|
29 var |
|
30 allOK: boolean; |
28 |
31 |
29 implementation |
32 implementation |
30 uses SDLh, uConsole, uCommands, uConsts; |
33 uses SDLh, uConsole, uCommands, uConsts; |
31 |
34 |
32 procedure OutError(Msg: shortstring; isFatalError: boolean); |
35 procedure OutError(Msg: shortstring; isFatalError: boolean); |
45 begin |
48 begin |
46 if not Assert then |
49 if not Assert then |
47 OutError(Msg, isFatal) |
50 OutError(Msg, isFatal) |
48 end; |
51 end; |
49 |
52 |
50 procedure SDLTry(Assert: boolean; Msg: shortstring; isFatal: boolean); |
53 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
51 var s: shortstring; |
54 var s: shortstring; |
52 begin |
55 begin |
53 if not Assert then |
56 if not Assert then |
54 begin |
57 begin |
55 s:= SDL_GetError(); |
58 s:= SDL_GetError(); |
56 OutError(Msg + ': ' + s, isFatal) |
59 OutError(Msg + ': ' + s, false) |
57 end |
60 end; |
|
61 |
|
62 allOK:= allOK and (Assert or (not isFatal)); |
|
63 SDLCheck:= (not Assert) and isFatal |
58 end; |
64 end; |
59 |
65 |
60 end. |
66 end. |