equal
deleted
inserted
replaced
51 TryDo(IOResult = 0, 'Cannot load locale "' + FileName + '"', true); |
51 TryDo(IOResult = 0, 'Cannot load locale "' + FileName + '"', true); |
52 while not eof(f) do |
52 while not eof(f) do |
53 begin |
53 begin |
54 readln(f, s); |
54 readln(f, s); |
55 if Length(s) = 0 then continue; |
55 if Length(s) = 0 then continue; |
56 if s[1] = ';' then continue; |
56 if not (s[1] in ['0'..'9']) then continue; |
57 TryDo(Length(s) > 6, 'Load locale: empty string', true); |
57 TryDo(Length(s) > 6, 'Load locale: empty string', true); |
58 val(s[1]+s[2], a, c); |
58 val(s[1]+s[2], a, c); |
59 TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true); |
59 TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true); |
60 TryDo(s[3] = ':', 'Load locale: ":" expected', true); |
60 TryDo(s[3] = ':', 'Load locale: ":" expected', true); |
61 val(s[4]+s[5], b, c); |
61 val(s[4]+s[5], b, c); |