29 

    29 

    30 function  EnumToStr(const en : TGearType) : shortstring; overload;

    30 function  EnumToStr(const en : TGearType) : shortstring; overload;

    31 function  EnumToStr(const en : TVisualGearType) : shortstring; overload;

    31 function  EnumToStr(const en : TVisualGearType) : shortstring; overload;

    32 function  EnumToStr(const en : TSound) : shortstring; overload;

    32 function  EnumToStr(const en : TSound) : shortstring; overload;

    33 function  EnumToStr(const en : TAmmoType) : shortstring; overload;

    33 function  EnumToStr(const en : TAmmoType) : shortstring; overload;

    34 function  EnumToStr(const en : THogEffect) : shortstring; overload;

    35 function  EnumToStr(const en : THogEffect) : shortstring; overload;

    35 function  EnumToStr(const en : TCapGroup) : shortstring; overload;

    36 function  EnumToStr(const en : TCapGroup) : shortstring; overload;

    36 

    37 

    37 function  Min(a, b: LongInt): LongInt; inline;

    38 function  Min(a, b: LongInt): LongInt; inline;

    38 function  Max(a, b: LongInt): LongInt; inline;

    39 function  Max(a, b: LongInt): LongInt; inline;

   146 end;

   147 end;

   147 

   148 

   148 function EnumToStr(const en : TAmmoType) : shortstring; overload;

   149 function EnumToStr(const en : TAmmoType) : shortstring; overload;

   149 begin

   150 begin

   150 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en))

   151 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en))

   151 end;

   157 end;

   152 

   158 

   153 function EnumToStr(const en: THogEffect) : shortstring; overload;

   159 function EnumToStr(const en: THogEffect) : shortstring; overload;

   154 begin

   160 begin

   155 EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en))

   161 EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en))