如何找到指定的字符在某一字符串中出现的每一次的位置?

Question

例如: 逗号: ',' 在某一字符串'abc,def,ghi'中每一次出现的位置?
AnsiPos(',', 'abc,def,ghi')只能找到一次, 如何找到下个','的位置?

Answer 1

function Instr(SubStr:string;FromP:longint;Str:string):longint; //类似vb的instr;
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;

Answer 2

for i := 1 to Length（aString）do
循环查找