|
那么pos('12',a)=0； 请问如何从第6个位置开始搜索。谢谢！！！！ |
|
|
|
|
|
自己写一个了
或者 i:= pos('12',copy(a,6, MAXINT)); if i> 0 then i:= i+ 6; |
|
|
|
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; |
|
|
|
先 谢谢 pazee(耙子)
但我上面是个例子啊，在程序中要查的是不可能这么简单的， 其实我是把一个java的函数复制在delphi上的 原来的是这样写的 next = attrs.indexOf(separator, start); //attrs就是个字符串，separator是要搜索的内容，start就是开始搜索的位置 期待高手回答 |
|
|
|
要不先连第六个字符以后的字符串取出来；
rightstr（str,5,length(str)-6）; |
|
|
|
好吧，看来是没有java那样一条就能得出结果的命令了，
|
|
|
|
没有java那样的函数，要么自己写，要么做个变通。
|
|
|
关闭