函数原型:Unit System
function Pos(Substr: string; S: string): Integer;
说明:
Substr : 子字符串.S : 母字符串. 寻找子字符串在母字符串中的位置(从下标 1 开始)
返回值:
返回子字符串在母字符串中的位置,未找到返回 0