equal
deleted
inserted
replaced
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 function EnumToStr(const en : TSprite) : shortstring; overload; |
|
38 function EnumToStr(const en : TMapGen) : shortstring; overload; |
38 |
39 |
39 function Min(a, b: LongInt): LongInt; inline; |
40 function Min(a, b: LongInt): LongInt; inline; |
40 function MinD(a, b: double) : double; inline; |
41 function MinD(a, b: double) : double; inline; |
41 function Max(a, b: LongInt): LongInt; inline; |
42 function Max(a, b: LongInt): LongInt; inline; |
42 |
43 |
182 end; |
183 end; |
183 |
184 |
184 function EnumToStr(const en: TSprite) : shortstring; overload; |
185 function EnumToStr(const en: TSprite) : shortstring; overload; |
185 begin |
186 begin |
186 EnumToStr := GetEnumName(TypeInfo(TSprite), ord(en)) |
187 EnumToStr := GetEnumName(TypeInfo(TSprite), ord(en)) |
|
188 end; |
|
189 |
|
190 function EnumToStr(const en: TMapGen) : shortstring; overload; |
|
191 begin |
|
192 EnumToStr := GetEnumName(TypeInfo(TMapGen), ord(en)) |
187 end; |
193 end; |
188 |
194 |
189 |
195 |
190 function Min(a, b: LongInt): LongInt; |
196 function Min(a, b: LongInt): LongInt; |
191 begin |
197 begin |