function indexstr(s:string;list:tstringlist):integer;
var
x:integer;begin
  for x:=1 to list.Count do if pos(s,list[x-1])>0 then result:=x-1;
end;如果成功,那么返回一整型行号,如果不成功,它应该返回什么呢?因为我有时候
需要知道具体的行号,而有的时候只需要知道是否能找到即可,并且希望在这一个函数中完成,如何实现呢?