hedgewars/uUtils.pas
changeset 10603 bda5c7caf396
parent 10595 6781190b053d
child 10605 df7a73db2c43
--- a/hedgewars/uUtils.pas	Tue Dec 02 12:02:20 2014 +0300
+++ b/hedgewars/uUtils.pas	Tue Dec 02 13:29:06 2014 -0500
@@ -35,6 +35,7 @@
 function  EnumToStr(const en : THogEffect) : shortstring; overload;
 function  EnumToStr(const en : TCapGroup) : shortstring; overload;
 function  EnumToStr(const en : TSprite) : shortstring; overload;
+function  EnumToStr(const en : TMapGen) : shortstring; overload;
 
 function  Min(a, b: LongInt): LongInt; inline;
 function  MinD(a, b: double) : double; inline;
@@ -186,6 +187,11 @@
 EnumToStr := GetEnumName(TypeInfo(TSprite), ord(en))
 end;
 
+function EnumToStr(const en: TMapGen) : shortstring; overload;
+begin
+EnumToStr := GetEnumName(TypeInfo(TMapGen), ord(en))
+end;
+
 
 function Min(a, b: LongInt): LongInt;
 begin