s:='abcdefghijk';
以下二种方法都能找出‘h'在s中的位置为8，而'x'在s中的位置为0（表示不存在）：
方法1：
position:=pos('h',s);
writeln(position);
方法2：
for position:=1 to length(s) do
if s[position]='h' then break;
if s[position]<>'h' then position:=0;
writeln(position);
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024