hedgewars/uUtils.pas
changeset 9648 3a3defce1b28
parent 9642 8a691e0f117a
child 9950 2759212a27de
child 9998 736015b847e3
--- a/hedgewars/uUtils.pas	Sun Oct 27 22:34:25 2013 -0400
+++ b/hedgewars/uUtils.pas	Mon Oct 28 14:07:04 2013 +0100
@@ -31,6 +31,7 @@
 function  EnumToStr(const en : TVisualGearType) : shortstring; overload;
 function  EnumToStr(const en : TSound) : shortstring; overload;
 function  EnumToStr(const en : TAmmoType) : shortstring; overload;
+function  EnumToStr(const en : TStatInfoType) : shortstring; overload;
 function  EnumToStr(const en : THogEffect) : shortstring; overload;
 function  EnumToStr(const en : TCapGroup) : shortstring; overload;
 
@@ -150,6 +151,11 @@
 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en))
 end;
 
+function EnumToStr(const en : TStatInfoType) : shortstring; overload;
+begin
+EnumToStr:= GetEnumName(TypeInfo(TStatInfoType), ord(en))
+end;
+
 function EnumToStr(const en: THogEffect) : shortstring; overload;
 begin
 EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en))