pascal 找一个字符串中指定子串的位置 不是起始位，是所有的！！

快！

var s,t:string;
p,k:longint;
begin
readln(s);
readln(t);
k:=0;
p:=pos(s,t);
while p<>0 do
begin
writeln(p+k);
delete(t,p,length(s));
inc(k,length(s));
p:=pos(s,t);
end;
end.

建议您用一下pos函数 再看看别人怎么说的。

用pos找一个删一个，知道找不到为止 需要更加快速的算法可以手写kmp算法 程序段：（设s是原串，t为模式串） repeat     k:=pos(t,s);     if k=0 then break;     delete(s,k,1); until k=0;