Pos-Funktion rückwärts

[omata]

Hier nochmal ein weiters Beispiel...

Delphi-Quellcode:

function MyPos(search, subject:string; LeftToRight:boolean):integer;
var posi:integer;
    temp:string;
begin
  Result:=0;
  temp:=subject;
  repeat
    posi:=pos(search, temp);
    delete(temp, 1, posi);
    Result:=Result + posi;
  until    (    LeftToRight and (posi >= 0))
        or (not LeftToRight and (posi  = 0));
  if not LeftToRight and (Result > 0) then
    Result:=length(subject) - Result +1;
end;

Gruss
Thorsten