equal
deleted
inserted
replaced
38 |
38 |
39 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
39 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring; |
40 trevt_n: array[TEventId] of integer; |
40 trevt_n: array[TEventId] of integer; |
41 |
41 |
42 procedure LoadLocale(FileName: shortstring); |
42 procedure LoadLocale(FileName: shortstring); |
43 var s: shortstring; |
43 var s: ansistring; |
44 f: pfsFile; |
44 f: pfsFile; |
45 a, b, c: LongInt; |
45 a, b, c: LongInt; |
46 first: array[TEventId] of boolean; |
46 first: array[TEventId] of boolean; |
47 e: TEventId; |
47 e: TEventId; |
48 loaded: boolean; |
48 loaded: boolean; |
56 |
56 |
57 if f <> nil then |
57 if f <> nil then |
58 begin |
58 begin |
59 while not pfsEof(f) do |
59 while not pfsEof(f) do |
60 begin |
60 begin |
61 pfsReadLn(f, s); |
61 pfsReadLnA(f, s); |
62 if Length(s) = 0 then |
62 if Length(s) = 0 then |
63 continue; |
63 continue; |
64 if (s[1] < '0') or (s[1] > '9') then |
64 if (s[1] < '0') or (s[1] > '9') then |
65 continue; |
65 continue; |
66 TryDo(Length(s) > 6, 'Load locale: empty string', true); |
66 TryDo(Length(s) > 6, 'Load locale: empty string', true); |