hedgewars/uLocale.pas
changeset 10082 2f7b7992258f
parent 10080 ac51bcb534ef
child 10105 8c5fa1d15bd5
equal deleted inserted replaced
10081:0af84e5cbd4d 10082:2f7b7992258f
    34 {$IFDEF HWLIBRARY}
    34 {$IFDEF HWLIBRARY}
    35 procedure LoadLocaleWrapper(str: pchar); cdecl; export;
    35 procedure LoadLocaleWrapper(str: pchar); cdecl; export;
    36 {$ENDIF}
    36 {$ENDIF}
    37 
    37 
    38 implementation
    38 implementation
    39 uses uRandom, uVariables, uDebug, uPhysFSLayer, sysutils;
    39 uses uRandom, uVariables, uDebug, uPhysFSLayer, sysutils, uUtils;
    40 
    40 
    41 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of PChar;
    41 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of PChar;
    42     trevt_n: array[TEventId] of integer;
    42     trevt_n: array[TEventId] of integer;
    43 
    43 
    44 procedure LoadLocale(FileName: shortstring);
    44 procedure LoadLocale(FileName: shortstring);