Delphi:分割字符串string，取出截取中间字符串Function FindStr(BegSprStr,EdSpStr:String;var Source:String):String; var BegStr1Len,EdSpStr