6
function SubStr(CString: PChar;FromPos,ToPos: Longint): PChar; cdecl;
12
Length := StrLen(CString);
13
SubStr := CString + Length;
14
if (FromPos > 0) and (ToPos >= FromPos) then
16
if Length >= FromPos then
17
SubStr := CString + FromPos - 1;
18
if Length > ToPos then