equal
deleted
inserted
replaced
35 uses uMisc; |
35 uses uMisc; |
36 |
36 |
37 procedure LoadLocale(FileName: string); |
37 procedure LoadLocale(FileName: string); |
38 var s: shortstring; |
38 var s: shortstring; |
39 f: textfile; |
39 f: textfile; |
40 a, b, c: integer; |
40 a, b, c: LongInt; |
41 begin |
41 begin |
42 {$I-} |
42 {$I-} |
43 Assign(f, FileName); |
43 Assign(f, FileName); |
44 reset(f); |
44 reset(f); |
45 TryDo(IOResult = 0, 'Cannot load locale "' + FileName + '"', true); |
45 TryDo(IOResult = 0, 'Cannot load locale "' + FileName + '"', true); |
64 Close(f) |
64 Close(f) |
65 {$I+} |
65 {$I+} |
66 end; |
66 end; |
67 |
67 |
68 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
68 function Format(fmt: shortstring; var arg: shortstring): shortstring; |
69 var i: integer; |
69 var i: LongInt; |
70 begin |
70 begin |
71 i:= Pos('%1', fmt); |
71 i:= Pos('%1', fmt); |
72 if i = 0 then Format:= fmt |
72 if i = 0 then Format:= fmt |
73 else Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg) |
73 else Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg) |
74 end; |
74 end; |