Pos 取得字符串的起始位置

function Pos(Substr: string; S: string): Integer;

pos(a,b);     取出子串a，在父串b中第一次出现的位置；

     例如：

     pos（‘b’，‘abcd’）；

     返回结果是2；