AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Nochmal RPos

Ein Thema von Willie1 · begonnen am 15. Nov 2015 · letzter Beitrag vom 16. Nov 2015
Antwort Antwort
Willie1

Registriert seit: 28. Mai 2008
536 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

Nochmal RPos

  Alt 15. Nov 2015, 17:41
Hallo Delphianer,
im Netz gibt es zahlreiche Lösungen für RPos. Eine ist fehlerhaft und andere sind lang und umständlich.
Meine Lösung ist kurz: Voraussetzung keine leeren Strings und Hauptstring- >= Substring-Länge.
Delphi-Quellcode:
function RPos(const SubStr, Str: string): Integer;
begin
  Result:=0;
  if (SubStr <> '') and (Length(Str) - Length(SubStr) >= 0) then
  begin
    Result:=Length(Str) - Pred(Length(SubStr));
    while (Copy(Str, Result, Length(SubStr)) <> SubStr) and (Result > 0) do Dec(Result);
  end;
end;
Mit PosEx aus StrUtils noch kürzer:
Delphi-Quellcode:
uses StrUtils;
...
function RPos(const SubStr, Str: string): Integer;
begin
  Result:=0;
  if (SubStr <> '') and (Length(Str) - Length(SubStr) >= 0) then
  begin
    Result:=Length(Str) - Pred(Length(SubStr));
    while (PosEx(Substr, Str, Result) = 0) and (Result > 0) do Dec(Result);
  end;
end;
Frage: Mein Delphi ist betagt, gibt es inzwischen RPos bei Delphi XE ?
Kennt jemand eine ASM-Lösung, das wäre doch etwas für einen Assembler-Programmierer.

Schönen Sonntag
Willie1.
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.020 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Nochmal RPos

  Alt 15. Nov 2015, 18:20
Warum suchst Du nicht rückwärts mit PChar?
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
16.847 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: Nochmal RPos

  Alt 15. Nov 2015, 19:44
Du könntest eines der folgenden verwenden

http://docwiki.embarcadero.com/Libra....LastDelimiter
http://docwiki.embarcadero.com/Libra...Utils.StrRScan
http://docwiki.embarcadero.com/Libra...s.AnsiStrRScan
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Willie1

Registriert seit: 28. Mai 2008
536 Beiträge
 
Delphi 10.1 Berlin Starter
 
#4

AW: Nochmal RPos

  Alt 16. Nov 2015, 16:57
Danke Freunde! W.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 14:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf