a='123456123456'
那么pos('12',a)=0;
请问如何从第6个位置开始搜索。谢谢!!!!

解决方案 »

  1.   

    自己写一个了
    或者
    i:= pos('12',copy(a,6, MAXINT));
    if i> 0 then
      i:= i+ 6;
      

  2.   

    var
      ib:integer;//找到次数
      i:integer;
      str:string;
    begin
      ib:=0;
      str:=''
      i:=pos('12',a)
      while i>0
      begin
        ib:=ib+1;
        str:=copy(a,i,length(a)-i));
        i:=pos('12',str)
      end;
    end;
      
    end;
      

  3.   

    先 谢谢 pazee(耙子) 
    但我上面是个例子啊,在程序中要查的是不可能这么简单的,其实我是把一个java的函数复制在delphi上的
    原来的是这样写的
    next = attrs.indexOf(separator, start);
    //attrs就是个字符串,separator是要搜索的内容,start就是开始搜索的位置期待高手回答
      

  4.   

    要不先连第六个字符以后的字符串取出来;
    rightstr(str,5,length(str)-6);
      

  5.   

    好吧,看来是没有java那样一条就能得出结果的命令了,
      

  6.   

    没有java那样的函数,要么自己写,要么做个变通。