hedgewars/uLocale.pas
changeset 6674 4d3209a189ca
parent 6657 e1125559359f
child 6700 e04da46ee43c
equal deleted inserted replaced
6673:1ee72dcea263 6674:4d3209a189ca
    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    {$IFNDEF IPHONEOS}WriteLnToConsole('Locale loaded "' + FileName + '"');{$ENDIF}
    99    {$IFNDEF HWLIBRARY}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;