equal
deleted
inserted
replaced
40 function EnumToStr(const en : TStatInfoType) : shortstring; overload; |
40 function EnumToStr(const en : TStatInfoType) : shortstring; overload; |
41 function EnumToStr(const en : THogEffect) : shortstring; overload; |
41 function EnumToStr(const en : THogEffect) : shortstring; overload; |
42 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
42 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
43 function EnumToStr(const en : TSprite) : shortstring; overload; |
43 function EnumToStr(const en : TSprite) : shortstring; overload; |
44 function EnumToStr(const en : TMapGen) : shortstring; overload; |
44 function EnumToStr(const en : TMapGen) : shortstring; overload; |
|
45 function EnumToStr(const en : TWorldEdge) : shortstring; overload; |
45 |
46 |
46 function Min(a, b: LongInt): LongInt; inline; |
47 function Min(a, b: LongInt): LongInt; inline; |
47 function MinD(a, b: double) : double; inline; |
48 function MinD(a, b: double) : double; inline; |
48 function Max(a, b: LongInt): LongInt; inline; |
49 function Max(a, b: LongInt): LongInt; inline; |
49 |
50 |
292 end; |
293 end; |
293 |
294 |
294 function EnumToStr(const en: TMapGen) : shortstring; overload; |
295 function EnumToStr(const en: TMapGen) : shortstring; overload; |
295 begin |
296 begin |
296 EnumToStr := GetEnumName(TypeInfo(TMapGen), ord(en)) |
297 EnumToStr := GetEnumName(TypeInfo(TMapGen), ord(en)) |
|
298 end; |
|
299 |
|
300 function EnumToStr(const en: TWorldEdge) : shortstring; overload; |
|
301 begin |
|
302 EnumToStr := GetEnumName(TypeInfo(TWorldEdge), ord(en)) |
297 end; |
303 end; |
298 |
304 |
299 |
305 |
300 function Min(a, b: LongInt): LongInt; |
306 function Min(a, b: LongInt): LongInt; |
301 begin |
307 begin |