equal
deleted
inserted
replaced
2 interface |
2 interface |
3 |
3 |
4 function str2PChar(const s: shortstring): PChar; |
4 function str2PChar(const s: shortstring): PChar; |
5 function intToStr(n: LongInt): shortstring; |
5 function intToStr(n: LongInt): shortstring; |
6 function midStr(s: shortstring; pos: byte): shortstring; |
6 function midStr(s: shortstring; pos: byte): shortstring; |
|
7 procedure underScore2Space(var s: shortstring); |
7 |
8 |
8 implementation |
9 implementation |
9 |
10 |
10 var |
11 var |
11 str2PCharBuffer: array[0..255] of char; |
12 str2PCharBuffer: array[0..255] of char; |
29 function midStr(s: shortstring; pos: byte): shortstring; |
30 function midStr(s: shortstring; pos: byte): shortstring; |
30 begin |
31 begin |
31 midStr:= copy(s, pos, length(s) - pos + 1) |
32 midStr:= copy(s, pos, length(s) - pos + 1) |
32 end; |
33 end; |
33 |
34 |
|
35 procedure underScore2Space(var s: shortstring); |
|
36 var i: LongInt; |
|
37 begin |
|
38 for i:= length(s) downto 1 do |
|
39 if s[i] = '_' then s[i]:= ' ' |
|
40 end; |
|
41 |
34 end. |
42 end. |