equal
deleted
inserted
replaced
33 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
33 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
34 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
34 function Format(fmt: ansistring; var arg: ansistring): ansistring; |
35 function GetEventString(e: TEventId): ansistring; |
35 function GetEventString(e: TEventId): ansistring; |
36 |
36 |
37 implementation |
37 implementation |
38 uses uMisc, uRandom, uUtils; |
38 uses uRandom, uUtils, uIO; |
39 |
39 |
40 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
40 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
41 trevt_n: array[TEventId] of integer; |
41 trevt_n: array[TEventId] of integer; |
42 |
42 |
43 procedure LoadLocale(FileName: shortstring); |
43 procedure LoadLocale(FileName: shortstring); |