例如: 逗号: ',' 在某一字符串'abc,def,ghi'中每一次出现的位置?
AnsiPos(',', 'abc,def,ghi')只能找到一次, 如何找到下个','的位置?
AnsiPos(',', 'abc,def,ghi')只能找到一次, 如何找到下个','的位置?
解决方案 »
- Delphi中public与publish域的差异
- 请教:WORD的OLE问题
- 谁能帮我实现StringGrid的某列Cell具有下拉列表的功能。
- ExcelApplication.Save的问题
- 读无类型文件问题:blockRead可否操作动态数组?杂线等候,谢谢!
- 急寻找 文魁,碁峰 或 儒林 or 松岗出版社 的网址或联系方法
- 请问DEV的dxDBGrid 是什么?
- 【求助】局域网程序的制作
- 请问怎样使form中的component响应windows消息﹐For example:不用delphi自带的事件处理器﹐点击form上的一个button﹐出现提示框!
- MAC校验算法是什么东西?请高手指点指点,或给个小例子,谢谢!
- 请问如何在三层结构中使用存储过程?
- 错误处理,关于Exception急等
var LStr:string;
begin
Result:=0;
try
Lstr:=copy(Str,FromP,length(Str)-FromP+1);
if pos(SubStr,LStr)<>0 then begin
Result:=pos(SubStr,LStr)+FromP-1;end
except
messagebox(0,'发生错误','信息',mb_ok+mb_iconerror);
end;
end;
循环查找