hedgewars/uLocale.pas
changeset 6657 e1125559359f
parent 6580 6155187bf599
child 6674 4d3209a189ca
equal deleted inserted replaced
6656:6aeaba3ee584 6657:e1125559359f
    94             5: if (b >=0) and (b <= ord(High(TGoalStrId))) then
    94             5: if (b >=0) and (b <= ord(High(TGoalStrId))) then
    95                 trgoal[TGoalStrId(b)]:= s;
    95                 trgoal[TGoalStrId(b)]:= s;
    96            end;
    96            end;
    97        end;
    97        end;
    98    Close(f);
    98    Close(f);
    99    WriteLnToConsole('Locale loaded "' + FileName + '"');
    99    {$IFNDEF IPHONEOS}WriteLnToConsole('Locale loaded "' + FileName + '"');{$ENDIF}
   100    end;
   100    end;
   101 {$I+}
   101 {$I+}
   102 end;
   102 end;
   103 
   103 
   104 function GetEventString(e: TEventId): ansistring;
   104 function GetEventString(e: TEventId): ansistring;