hedgewars/uUtils.pas
branchspacecampaign
changeset 9642 8a691e0f117a
parent 9377 48ab6dea8d2f
child 9950 2759212a27de
child 9998 736015b847e3
--- a/hedgewars/uUtils.pas	Thu Sep 19 02:33:23 2013 +0300
+++ b/hedgewars/uUtils.pas	Thu Sep 19 03:49:29 2013 +0300
@@ -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))