Alternative zu PosEx

[himitsu]

Lies besser nicht meine Signatur.

OK, bei dem alten Delphi solltest du das überall das "Pos" in "PosEx" umbenennen .... ist aber eigentlich sieit vielen Jahren nicht mehr nötig.

Delphi-Quellcode:

function Pos(const SubStr, Str: String; Offset, LastOffset: Integer): Integer; overload;
begin
  //if Offset > 0 then
  //  Result := Pos(SubStr, Str, Offset)
  //else
  //  Result := Pos(SubStr, Str);
  Result := Pos(SubStr, Str, Offset);
  if Result > LastOffset then
    Result := 0;    
end;