一个稍复杂的字符串截取问题

给定一个字符串，如下图所示：

要求：
1、取出上述字符串括号前的字符串；
2、取出上述字符串括号中的1；
3、取出上述字符串括号中的48；

实现：
直接上干货

str:= '20151202142200000001(1,48)';
slen:=Length(str)-Length(LeftStr(str,Pos('(',str)))-1;  //计算括号内（不包括括号）的字符长度，这里是  length(1,48)
mstr:= MidStr(str,Pos('(',str)+1,slen);  //取出  1,48
ShowMessage(LeftStr(str,Pos('(',str)-1));  //取出20151202142200000001
ShowMessage(LeftStr(mstr,Pos(',',mstr)-1)); //取出1
ShowMessage(RightStr(mstr,Length(mstr)-Pos(',',mstr))); //取出48

知识点补充：
1、假设字符串是 Dstr := ‘Delphi is the BEST’, 那么 LeftStr(Dstr, 5) := ‘Delph’; MidStr(Dstr, 6, 7) := ’i is th’; RightStr(Dstr, 6) := ‘e BEST’;
2、pos函数的使用请参照

pos函数的使用

---

以上为个人总结，有不妥之后，请在评论中指出。