equal
deleted
inserted
replaced
32 procedure SplitByCharA(var a, b: ansistring; c: char); |
32 procedure SplitByCharA(var a, b: ansistring; c: char); |
33 |
33 |
34 procedure EscapeCharA(var a: ansistring; e: char); |
34 procedure EscapeCharA(var a: ansistring; e: char); |
35 procedure UnEscapeCharA(var a: ansistring; e: char); |
35 procedure UnEscapeCharA(var a: ansistring; e: char); |
36 |
36 |
|
37 procedure ReplaceChars(var a: shortstring; c1, c2: char); |
|
38 procedure ReplaceCharsA(var a: ansistring; c1, c2: char); |
|
39 |
37 function ExtractFileDir(s: shortstring) : shortstring; |
40 function ExtractFileDir(s: shortstring) : shortstring; |
38 function ExtractFileName(s: shortstring) : shortstring; |
41 function ExtractFileName(s: shortstring) : shortstring; |
39 |
42 |
40 function EnumToStr(const en : TGearType) : shortstring; overload; |
43 function EnumToStr(const en : TGearType) : shortstring; overload; |
41 function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
44 function EnumToStr(const en : TVisualGearType) : shortstring; overload; |
45 function EnumToStr(const en : THogEffect) : shortstring; overload; |
48 function EnumToStr(const en : THogEffect) : shortstring; overload; |
46 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
49 function EnumToStr(const en : TCapGroup) : shortstring; overload; |
47 function EnumToStr(const en : TSprite) : shortstring; overload; |
50 function EnumToStr(const en : TSprite) : shortstring; overload; |
48 function EnumToStr(const en : TMapGen) : shortstring; overload; |
51 function EnumToStr(const en : TMapGen) : shortstring; overload; |
49 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; |
50 |
55 |
51 function Min(a, b: LongInt): LongInt; |
56 function Min(a, b: LongInt): LongInt; |
52 function MinD(a, b: double) : double; |
57 function MinD(a, b: double) : double; |
53 function Max(a, b: LongInt): LongInt; |
58 function Max(a, b: LongInt): LongInt; |
54 |
59 |
302 else |
307 else |
303 break; |
308 break; |
304 until (i <= 0); |
309 until (i <= 0); |
305 end; { UnEscapeCharA } |
310 end; { UnEscapeCharA } |
306 |
311 |
|
312 // Replace all characters c1 with c2 in shortstring a |
|
313 procedure ReplaceChars(var a: shortstring; c1, c2: char); |
|
314 var i: LongInt; |
|
315 begin |
|
316 repeat |
|
317 i:= Pos(c1, a); |
|
318 if (i > 0) then |
|
319 a[i]:= c2; |
|
320 until (i <= 0); |
|
321 end; { ReplaceChars } |
|
322 |
|
323 // Replace all characters c1 with c2 in antistring a |
|
324 procedure ReplaceCharsA(var a: ansistring; c1, c2: char); |
|
325 var i: LongInt; |
|
326 begin |
|
327 repeat |
|
328 i:= Pos(c1, a); |
|
329 if (i > 0) then |
|
330 a[i]:= c2; |
|
331 until (i <= 0); |
|
332 end; { ReplaceCharsA } |
|
333 |
307 function EnumToStr(const en : TGearType) : shortstring; overload; |
334 function EnumToStr(const en : TGearType) : shortstring; overload; |
308 begin |
335 begin |
309 EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en)) |
336 EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en)) |
310 end; |
337 end; |
311 |
338 |
352 function EnumToStr(const en: TWorldEdge) : shortstring; overload; |
379 function EnumToStr(const en: TWorldEdge) : shortstring; overload; |
353 begin |
380 begin |
354 EnumToStr := GetEnumName(TypeInfo(TWorldEdge), ord(en)) |
381 EnumToStr := GetEnumName(TypeInfo(TWorldEdge), ord(en)) |
355 end; |
382 end; |
356 |
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; |
357 |
393 |
358 function Min(a, b: LongInt): LongInt; |
394 function Min(a, b: LongInt): LongInt; |
359 begin |
395 begin |
360 if a < b then |
396 if a < b then |
361 Min:= a |
397 Min:= a |