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 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);

   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,' ');