function Pos(Substr: string; S: string): Integer;Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero.
Pos这个函数用来查找子串的 Pos(subStr,SourceStr);第一个参数代表你要找的子串 第二个参数代表原串 if Pos('时候',String1)>0 then //你找到该子串
if i>0 then ...
Pos(subStr,SourceStr);第一个参数代表你要找的子串 第二个参数代表原串
if Pos('时候',String1)>0 then
//你找到该子串