a='123456123456'
那么pos('12',a)=0;
请问如何从第6个位置开始搜索。谢谢!!!!
那么pos('12',a)=0;
请问如何从第6个位置开始搜索。谢谢!!!!
解决方案 »
- 点击TreeView1列表打开对应的窗体,谢谢!
- 菜鸟求助:用IdTcpServer实现异步短链socket服务器端。
- ehlib的lookup字段使用的简单问题
- sql 语句,高手看看呀,急!!!!!!
- 如何把指针地址加1
- 关于运用fastreport作报表时出现的严重问题?急
- “贺岁华东行”--与技术总监和Borland产品专家面对面2004元旦
- 用canvas画线,并且标上箭头
- 已经在富士康工作或曾经到那里面试的各位朋友请进,谈谈你们的经验!谢谢!
- 1.如何锁定计算机....2......十万火急!!!!!!!!!
- 急!如何将一串十六进制的字符转换为含有字母,数字的字符串?
- 有没有办法让 隐藏的label 在整段代码执行完之前,先显示出来?
或者
i:= pos('12',copy(a,6, MAXINT));
if i> 0 then
i:= i+ 6;
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;
但我上面是个例子啊,在程序中要查的是不可能这么简单的,其实我是把一个java的函数复制在delphi上的
原来的是这样写的
next = attrs.indexOf(separator, start);
//attrs就是个字符串,separator是要搜索的内容,start就是开始搜索的位置期待高手回答
rightstr(str,5,length(str)-6);