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;
