equal
deleted
inserted
replaced
28 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
28 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
29 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
29 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
30 function GetEventString(e: TEventId): ansistring; |
30 function GetEventString(e: TEventId): ansistring; |
31 |
31 |
32 implementation |
32 implementation |
33 uses uRandom, uUtils, uIO, uVariables; |
33 uses uRandom, uUtils, uVariables, uDebug; |
34 |
34 |
35 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
35 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
36 trevt_n: array[TEventId] of integer; |
36 trevt_n: array[TEventId] of integer; |
37 |
37 |
38 procedure LoadLocale(FileName: shortstring); |
38 procedure LoadLocale(FileName: shortstring); |