6 

     6 

     7 procedure SplitBySpace(var a, b: shortstring);

     7 procedure SplitBySpace(var a, b: shortstring);

     8 procedure SplitByChar(var a, b: ansistring; c: char);

     8 procedure SplitByChar(var a, b: ansistring; c: char);

     9 

     9 

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

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

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

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

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

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

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

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

    14 

    15 

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

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

    80 end;

    81 end;

    81 

    82 

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

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

    83 begin

    84 begin

    84 EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en))

    85 EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en))

    85 end;

    90 end;

    86 

    91 

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

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

    88 begin

    93 begin

    89 EnumToStr:= GetEnumName(TypeInfo(TSound), ord(en))

    94 EnumToStr:= GetEnumName(TypeInfo(TSound), ord(en))