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.