hedgewars/uUtils.pas
changeset 11879 c6eafb6f2735
parent 11826 7654e2357934
child 12197 98824a464230
--- a/hedgewars/uUtils.pas	Mon Nov 14 21:33:59 2016 +0100
+++ b/hedgewars/uUtils.pas	Tue Nov 15 00:17:31 2016 +0100
@@ -42,6 +42,7 @@
 function  EnumToStr(const en : TCapGroup) : shortstring; overload;
 function  EnumToStr(const en : TSprite) : shortstring; overload;
 function  EnumToStr(const en : TMapGen) : shortstring; overload;
+function  EnumToStr(const en : TWorldEdge) : shortstring; overload;
 
 function  Min(a, b: LongInt): LongInt; inline;
 function  MinD(a, b: double) : double; inline;
@@ -296,6 +297,11 @@
 EnumToStr := GetEnumName(TypeInfo(TMapGen), ord(en))
 end;
 
+function EnumToStr(const en: TWorldEdge) : shortstring; overload;
+begin
+EnumToStr := GetEnumName(TypeInfo(TWorldEdge), ord(en))
+end;
+
 
 function Min(a, b: LongInt): LongInt;
 begin