hedgewars/uLocale.pas
changeset 6528 fb2918089225
parent 6453 11c578d30bd3
child 6580 6155187bf599
--- a/hedgewars/uLocale.pas	Mon Dec 12 00:10:11 2011 +0100
+++ b/hedgewars/uLocale.pas	Mon Dec 12 00:10:55 2011 +0100
@@ -30,7 +30,7 @@
 function  GetEventString(e: TEventId): ansistring;
 
 implementation
-uses uRandom, uUtils, uVariables, uDebug;
+uses uRandom, uUtils, uVariables, uDebug, uConsole;
 
 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring;
     trevt_n: array[TEventId] of integer;
@@ -85,7 +85,8 @@
            5: if (b >=0) and (b <= ord(High(TGoalStrId))) then trgoal[TGoalStrId(b)]:= s;
            end;
        end;
-   Close(f)
+   Close(f);
+   WriteLnToConsole('Locale loaded "' + FileName + '"');
    end;
 {$I+}
 end;