Alle build-in Delphi Funktion wie PosEx findet sich eine sub-Zeichenkette beginnend von der Rückseite des Strings?

Versuchen, dieser/diese:

function RPos(const aSubStr, aString : String; const aStartPos: Integer): Integer; overload;
var
  i: Integer;
  pStr: PChar;
  pSub: PChar;
begin
  pSub := Pointer(aSubStr);

  for i := aStartPos downto 1 do
  begin
    pStr := @(aString[i]);
    if (pStr^ = pSub^) then
    begin
      if CompareMem(pSub, pStr, Length(aSubStr)) then
      begin
        result := i;
        EXIT;
      end;
    end;
  end;

  result := 0;
end;


function RPos(const aSubStr, aString : String): Integer; overload;
begin
  result := RPos(aSubStr, aString, Length(aString) - Length(aSubStr) + 1);
end;

Überlastung bietet eine Möglichkeit zum aufrufen von RPos mit der effizientesten startpos für die Suche vom Ende des Strings, ohne zu berechnen, dass Sie sich. Für die Effizienz wird keine Prüfung durchgeführt wird, auf startpos, wenn explizit angegeben.

In meinem SmokeTest-performance-Test-suite diese kommt etwa 20% schneller als Ihre FastPosBack (die enthält übrigens ein "off by one" - Fehler sowie erfordern einige Parameter, die es eigentlich nicht verwenden).

Delphi kommt mit einer Funktion, die Suche rückwärts, SearchBuf in der unit StrUtils. Es ist spezialisiert für die Suche nach Worten, aber so ist es vielleicht nicht Verhalten, ganz wie Sie wollen. Unten habe ich wickelte es in eine Funktion gefunden, die Ihren gewünschten Schnittstelle.

function FastPosBack(const aSourceString, aFindString: AnsiString;
                     const aSourceLen, aFindLen, StartPos: Integer): Integer;
var
  Source, Match: PAnsiChar;
begin
  Source := PAnsiChar(ASourceString);
  Match := SearchBuf(Source, ASourceLen, ASourceLen, 0,
                     AFindString, [soMatchCase]);
  if Assigned(Match) then
    Result := Match - Source + 1
  else
    Result := 0;
end;

Ich die RPOS-Varianten von Free Pascal ist strutils Funktion:

http://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/rtl/objpas/strutils.pp?view=markup

den string,string version ist fast die gleiche wie Deltics', aber es gibt die Varianten:

Function RPosEX(C:char;const S : AnsiString;offs:cardinal):Integer; overload;
Function RPosex (Const Substr : AnsiString; Const Source : AnsiString;offs:cardinal) : Integer; overload;
Function RPos(c:char;const S : AnsiString):Integer; overload;
Function RPos (Const Substr : AnsiString; Const Source : AnsiString) : Integer; overload;


Sie sind lizenziert unter FPC die GPL+linking-exception-Lizenz, aber da schrieb ich Ihnen, dass ich hiermit die Freigabe, die unter BSD-Lizenz.

Vielleicht hinzufügen Uppercasing oder Kleinschreibung aSubstr und aString Parameter, bevor Sie die Suche vornehmen können, Deltics Zweck der groß-und Kleinschreibung. Ich denke, verließ er Sie dazu vor dem Aufruf von RPos. aber vielleicht ist ein optionaler parameter, der den job tun können.

dies ist, wie Deltic Zweck Aussehen soll:

function RPos(const aSubStr, aString : String; const aStartPos: Integer;
              const aCaseInSensitive:boolean=true): Integer; overload;
var
  i, _startPos: Integer;
  pStr: PChar;
  pSub: PChar;
  _subStr, _string: string;
begin

 if aCaseInSensitive then
 begin
  _subStr := lowercase( aSubstr );
  _string := lowercase( aString );
 end
 else 
 begin
  _subStr := aSubstr:
  _string := aString;
 end;

 pSub := Pointer(_subStr);

 if aStartPos = -1 then
    _startPos :=  Length(_string) - Length(_subStr) + 1
 else
    _startPos := aStartPos;

 for i := _startPos downto 1 do
 begin
   pStr := @(_string[i]);
   if (pStr^ = pSub^) then
   begin
     if CompareMem(pSub, pStr, Length(_subStr)) then
     begin
       result := i;
       EXIT;
     end;
   end;
 end;

 result := 0;
end;


function RPos(const aSubStr, aString : String; 
              const aCaseInSensitive:boolean=true): Integer; overload;
begin
  result := RPos(aSubStr, aString, Length(aString) - Length(aSubStr) + 1,
                 aCaseInSensitive);
end;