PosEx für Delphi 5?

[IngoD7]

Zitat von xZise:

Mein PosEx-Klon:

Delphi-Quellcode:

function PosEx(Substr, s : string; Offset : Integer = 0) : Integer;
begin
  Result := 0;
  Delete(s, 1, Offset);
  Result := Pos(Substr, s) + Offset;
end;

Den Klon kannste vergessen, oder?
Der liefert ja immer ein Ergebnis, wenn Offset größer 0 ist. Auch wenn Substr überhaupt nicht vor kommt.

PosEx ist in Delphi folgendes - aus OH:

Zitat:

Delphi-Syntax:

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;

Beschreibung:
PosEx gibt den Index von SubStr in S zurück, wobei die Suche bei Offset begonnen wird. Wenn Offset 1 ist (Vorgabe), entspricht PosEx Pos.

PosEx gibt 0 zurück, wenn SubStr nicht gefunden wird, Offset größer als die Länge von S ist oder Offset kleiner als 1 ist.