Delphi StrRScan auch mit String, nicht nur mit Char

Thema durchsuchen

Ansicht

Themen-Optionen

StrRScan auch mit String, nicht nur mit Char

Ein Thema von n0b0dy · begonnen am 15. Sep 2005 · letzter Beitrag vom 15. Sep 2005

Vorheriger Beitrag

Nächster Beitrag

Grishnak

Registriert seit: 15. Sep 2005
Ort: Neu-Ulm
111 Beiträge

RAD-Studio 2009 Arc

Re: StrRScan auch mit String, nicht nur mit Char

15. Sep 2005, 02:02

zusammenfalten · markieren

Delphi-Quellcode:

			function StrRScanS(const S: string; const sub: string): integer;

var

  p, c: integer;

begin

  Result:=-1;

  p:=Length(s)-Length(sub)+1;

  if p > 0

    then

      repeat

        c:=1;

        while (sub[c] = s[p+c-1]) and (c <= Length(sub)) do Inc(c);

        if c = Length(sub)+1 then Result:=p;

        Dec(p);

      until (p = 0) or (Result > -1);

end;