Was soll hier die Verketterei?
Delphi 7 hat auch schon eine PosEx (wenn ich mich recht erinnere). Ansonsten kann man sich schnell eine selbst schreiben bzw. hier im Forum.
Ungetestet:
Delphi-Quellcode:
procedure MultiPos(const SubStr, S: String;
const Offset: Integer; var Positions: TIntegerArray);
var
I, N: integer;
begin
N := 0;
SetLength(Positions, N);
I := PosEx(SubStr, S, Offset);
while I > 0 do
begin
Inc(N);
SetLength(Positions, N);
Positions[N - 1] := I;
I := PosEx(SubStr, S, I + 1);
end;
end;