hedgewars/uUtils.pas
changeset 5118 9cfdb9bc6140
parent 4981 0c60ade27a0a
child 5130 3602ede67ec5
--- a/hedgewars/uUtils.pas	Thu Apr 07 13:26:56 2011 +0200
+++ b/hedgewars/uUtils.pas	Thu Apr 07 11:30:56 2011 -0400
@@ -31,6 +31,7 @@
 function  EnumToStr(const en : TSound) : shortstring; overload;
 function  EnumToStr(const en : TAmmoType) : shortstring; overload;
 function  EnumToStr(const en : THogEffect) : shortstring; overload;
+function  EnumToStr(const en : TCapGroup) : shortstring; overload;
 
 function  Min(a, b: LongInt): LongInt; inline;
 function  Max(a, b: LongInt): LongInt; inline;
@@ -118,7 +119,12 @@
 
 function EnumToStr(const en: THogEffect) : shortstring; overload;
 begin
-    EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en))
+EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en))
+end;
+
+function EnumToStr(const en: TCapGroup) : shortstring; overload;
+begin
+EnumToStr := GetEnumName(TypeInfo(TCapGroup), ord(en))
 end;