equal
deleted
inserted
replaced
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 : TStatInfoType) : shortstring; overload; |
34 function EnumToStr(const en : TStatInfoType) : shortstring; overload; |
35 function EnumToStr(const en : THogEffect) : shortstring; overload; |
35 function EnumToStr(const en : THogEffect) : shortstring; overload; |
36 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
36 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
|
37 function EnumToStr(const en : TSprite) : shortstring; overload; |
37 |
38 |
38 function Min(a, b: LongInt): LongInt; inline; |
39 function Min(a, b: LongInt): LongInt; inline; |
39 function Max(a, b: LongInt): LongInt; inline; |
40 function Max(a, b: LongInt): LongInt; inline; |
40 |
41 |
41 function IntToStr(n: LongInt): shortstring; |
42 function IntToStr(n: LongInt): shortstring; |
175 end; |
176 end; |
176 |
177 |
177 function EnumToStr(const en: TCapGroup) : shortstring; overload; |
178 function EnumToStr(const en: TCapGroup) : shortstring; overload; |
178 begin |
179 begin |
179 EnumToStr := GetEnumName(TypeInfo(TCapGroup), ord(en)) |
180 EnumToStr := GetEnumName(TypeInfo(TCapGroup), ord(en)) |
|
181 end; |
|
182 |
|
183 function EnumToStr(const en: TSprite) : shortstring; overload; |
|
184 begin |
|
185 EnumToStr := GetEnumName(TypeInfo(TSprite), ord(en)) |
180 end; |
186 end; |
181 |
187 |
182 |
188 |
183 function Min(a, b: LongInt): LongInt; |
189 function Min(a, b: LongInt): LongInt; |
184 begin |
190 begin |