Alternative zu PosEx und Insert

[marabu]

Insert() dürfte kein Problem unter D6 sein - hier kommt PosEx():

Delphi-Quellcode:

function PosEx(const SubStr, S: string; Offset: integer): integer;
begin
  Result := Pos(SubStr, Copy(S, OffSet, Succ(Length(S) - OffSet)));
  if Result > 0 then Result := Result + Pred(Offset);
end;

marabu