Dynamische Arrays "verketten"

[Bjoerk]

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;