equal
deleted
inserted
replaced
29 function EnumToStr(const en : TGearType) : shortstring; overload; |
29 function EnumToStr(const en : TGearType) : shortstring; overload; |
30 function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
30 function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
31 function EnumToStr(const en : TSound) : shortstring; overload; |
31 function EnumToStr(const en : TSound) : shortstring; overload; |
32 function EnumToStr(const en : TAmmoType) : shortstring; overload; |
32 function EnumToStr(const en : TAmmoType) : shortstring; overload; |
33 function EnumToStr(const en : THogEffect) : shortstring; overload; |
33 function EnumToStr(const en : THogEffect) : shortstring; overload; |
|
34 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
34 |
35 |
35 function Min(a, b: LongInt): LongInt; inline; |
36 function Min(a, b: LongInt): LongInt; inline; |
36 function Max(a, b: LongInt): LongInt; inline; |
37 function Max(a, b: LongInt): LongInt; inline; |
37 |
38 |
38 function IntToStr(n: LongInt): shortstring; |
39 function IntToStr(n: LongInt): shortstring; |
116 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en)) |
117 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en)) |
117 end; |
118 end; |
118 |
119 |
119 function EnumToStr(const en: THogEffect) : shortstring; overload; |
120 function EnumToStr(const en: THogEffect) : shortstring; overload; |
120 begin |
121 begin |
121 EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en)) |
122 EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en)) |
|
123 end; |
|
124 |
|
125 function EnumToStr(const en: TCapGroup) : shortstring; overload; |
|
126 begin |
|
127 EnumToStr := GetEnumName(TypeInfo(TCapGroup), ord(en)) |
122 end; |
128 end; |
123 |
129 |
124 |
130 |
125 function Min(a, b: LongInt): LongInt; |
131 function Min(a, b: LongInt): LongInt; |
126 begin |
132 begin |