32 

    32 

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

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

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

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

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

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

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

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

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

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

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

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

    39 

    40 

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

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

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

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

   156 end;

   157 end;

   157 

   158 

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

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

   159 begin

   160 begin

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

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

   161 end;

   167 end;

   162 

   168 

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

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

   164 begin

   170 begin

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

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