equal
deleted
inserted
replaced
48 function EnumToStr(const en : THogEffect) : shortstring; overload; |
48 function EnumToStr(const en : THogEffect) : shortstring; overload; |
49 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
49 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
50 function EnumToStr(const en : TSprite) : shortstring; overload; |
50 function EnumToStr(const en : TSprite) : shortstring; overload; |
51 function EnumToStr(const en : TMapGen) : shortstring; overload; |
51 function EnumToStr(const en : TMapGen) : shortstring; overload; |
52 function EnumToStr(const en : TWorldEdge) : shortstring; overload; |
52 function EnumToStr(const en : TWorldEdge) : shortstring; overload; |
|
53 function EnumToStr(const en : TMsgStrId) : shortstring; overload; |
|
54 function EnumToStr(const en : TGoalStrId) : shortstring; overload; |
53 |
55 |
54 function Min(a, b: LongInt): LongInt; inline; |
56 function Min(a, b: LongInt): LongInt; inline; |
55 function MinD(a, b: double) : double; inline; |
57 function MinD(a, b: double) : double; inline; |
56 function Max(a, b: LongInt): LongInt; inline; |
58 function Max(a, b: LongInt): LongInt; inline; |
57 |
59 |
377 function EnumToStr(const en: TWorldEdge) : shortstring; overload; |
379 function EnumToStr(const en: TWorldEdge) : shortstring; overload; |
378 begin |
380 begin |
379 EnumToStr := GetEnumName(TypeInfo(TWorldEdge), ord(en)) |
381 EnumToStr := GetEnumName(TypeInfo(TWorldEdge), ord(en)) |
380 end; |
382 end; |
381 |
383 |
|
384 function EnumToStr(const en: TMsgStrId) : shortstring; overload; |
|
385 begin |
|
386 EnumToStr := GetEnumName(TypeInfo(TMsgStrId), ord(en)) |
|
387 end; |
|
388 |
|
389 function EnumToStr(const en: TGoalStrId) : shortstring; overload; |
|
390 begin |
|
391 EnumToStr := GetEnumName(TypeInfo(TGoalStrId), ord(en)) |
|
392 end; |
382 |
393 |
383 function Min(a, b: LongInt): LongInt; |
394 function Min(a, b: LongInt): LongInt; |
384 begin |
395 begin |
385 if a < b then |
396 if a < b then |
386 Min:= a |
397 Min:= a |