{
***函数名   : Split
***函数说明 : 字符串分割
***参数     :
              sSource:  源字符串
              sSubStr:  需分割的字符
***返回值   : 分割后的字符数组(类型为TStringList)
}
function Split(sSource,sSubStr: WideString): TStringList;
var
    iCurrentPlace: Byte;
    StrList: TStringList;
begin
    StrList := TStringList.Create;
    while Pos(sSubStr, sSource)>0 do  //循环判断是否存在分割符
    begin
        iCurrentPlace := Pos(sSubStr, sSource); //取当前分隔符的位置
        StrList.Add(Copy(sSource, 1, iCurrentPlace-1));   //添加项目
        sSource := Copy(sSource, iCurrentPlace+Length(sSubStr), Length(sSource)-iCurrentPlace);  //减去已添加项和分隔符
    end;
    StrList.Add(sSource); //如果不存在分隔符时，直接作为项目添加
    Result := StrList;
end;