equal
deleted
inserted
replaced
56 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
56 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
57 |
57 |
58 function GetEventString(e: TEventId): ansistring; |
58 function GetEventString(e: TEventId): ansistring; |
59 |
59 |
60 implementation |
60 implementation |
61 uses uMisc, uRandom, uConsole; |
61 uses uMisc, uRandom; |
62 |
62 |
63 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
63 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
64 trevt_n: array[TEventId] of integer; |
64 trevt_n: array[TEventId] of integer; |
65 |
65 |
66 procedure LoadLocale(FileName: shortstring); |
66 procedure LoadLocale(FileName: shortstring); |