equal
deleted
inserted
replaced
24 uses uTypes, uFloat; |
24 uses uTypes, uFloat; |
25 |
25 |
26 // returns s with whitespaces (chars <= #32) removed form both ends |
26 // returns s with whitespaces (chars <= #32) removed form both ends |
27 function Trim(s: shortstring) : shortstring; |
27 function Trim(s: shortstring) : shortstring; |
28 |
28 |
|
29 function CountChar(s : shortstring; c: char) : LongInt; |
29 procedure SplitBySpace(var a, b: shortstring); |
30 procedure SplitBySpace(var a, b: shortstring); |
30 procedure SplitByChar(var a, b: shortstring; c: char); |
31 procedure SplitByChar(var a, b: shortstring; c: char); |
31 procedure SplitByCharA(var a, b: ansistring; c: char); |
32 procedure SplitByCharA(var a, b: ansistring; c: char); |
32 |
33 |
33 procedure EscapeCharA(var a: ansistring; e: char); |
34 procedure EscapeCharA(var a: ansistring; e: char); |
214 if lslash = len then |
215 if lslash = len then |
215 exit(''); |
216 exit(''); |
216 |
217 |
217 len:= len - lslash; |
218 len:= len - lslash; |
218 ExtractFilename:= copy(s, lslash + 1, len); |
219 ExtractFilename:= copy(s, lslash + 1, len); |
|
220 end; |
|
221 |
|
222 function CountChar(s : shortstring; c: char): LongInt; |
|
223 var i, res : LongInt; |
|
224 begin |
|
225 res:= 0; |
|
226 for i:= 1 to Length(s) do |
|
227 begin |
|
228 if s[i] = c then |
|
229 Inc(res) |
|
230 end; |
|
231 CountChar:= res |
219 end; |
232 end; |
220 |
233 |
221 procedure SplitBySpace(var a,b: shortstring); |
234 procedure SplitBySpace(var a,b: shortstring); |
222 begin |
235 begin |
223 SplitByChar(a,b,' '); |
236 SplitByChar(a,b,' '); |