153 procedure SplitBySpace(var a, b: shortstring); |
153 procedure SplitBySpace(var a, b: shortstring); |
154 procedure SplitByChar(var a, b: ansistring; c: char); |
154 procedure SplitByChar(var a, b: ansistring; c: char); |
155 function EnumToStr(const en : TGearType) : shortstring; overload; |
155 function EnumToStr(const en : TGearType) : shortstring; overload; |
156 function EnumToStr(const en : TSound) : shortstring; overload; |
156 function EnumToStr(const en : TSound) : shortstring; overload; |
157 function EnumToStr(const en : TAmmoType) : shortstring; overload; |
157 function EnumToStr(const en : TAmmoType) : shortstring; overload; |
|
158 function EnumToStr(const en : THogEffect) : shortstring; overload; |
158 procedure movecursor(dx, dy: LongInt); |
159 procedure movecursor(dx, dy: LongInt); |
159 function hwSign(r: hwFloat): LongInt; |
160 function hwSign(r: hwFloat): LongInt; |
160 function Min(a, b: LongInt): LongInt; |
161 function Min(a, b: LongInt): LongInt; |
161 function Max(a, b: LongInt): LongInt; |
162 function Max(a, b: LongInt): LongInt; |
162 procedure OutError(Msg: shortstring; isFatalError: boolean); |
163 procedure OutError(Msg: shortstring; isFatalError: boolean); |
230 end; |
231 end; |
231 |
232 |
232 function EnumToStr(const en : TAmmoType) : shortstring; overload; |
233 function EnumToStr(const en : TAmmoType) : shortstring; overload; |
233 begin |
234 begin |
234 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en)) |
235 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en)) |
|
236 end; |
|
237 |
|
238 function EnumToStr(const en: THogEffect) : shortstring; overload; |
|
239 begin |
|
240 EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en)) |
235 end; |
241 end; |
236 |
242 |
237 procedure movecursor(dx, dy: LongInt); |
243 procedure movecursor(dx, dy: LongInt); |
238 var x, y: LongInt; |
244 var x, y: LongInt; |
239 begin |
245 begin |