Question

free pascal怎样在一个字符串中找一个字符

急

Answer 1

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);