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;如果成功,那么返回一整型行号,如果不成功,它应该返回什么呢?因为我有时候
需要知道具体的行号,而有的时候只需要知道是否能找到即可,并且希望在这一个函数中完成,如何实现呢?

解决方案 »

  1.   

    function indexstr(s:string;list:tstringlist):integer;
    var
    x:integer;begin
      result:=-1;
      for x:=1 to list.Count do if pos(s,list[x-1])>0 then 
      begin
        result:=x-1;   //找到第一个就退出,不找下一个
        Break;
      end
    end;
    如果是-1,则没找到