Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.016 Beiträge
 
Delphi 12 Athens
 
#20

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 17:12
Vom Code her ja, aber von der Ausführungsgeschwindigkeit und vom Speichermanagement her ist es schon ein bisschen grausam.

> eine "nur lese"-Funktion, die daber sehr oft schreibend im Speicher rumpfuscht

Es geht aber inzwischen noch kürzer
Delphi-Quellcode:
z := Length(str) - Length(StringReplace(str, c, '', [rfReplaceAll]));

z := Length(str) - Length(ReplaceStr(str, c, ''));
Gut, da ist dann noch ein CALL mehr drin, aber der fällt nun auch nicht mehr auf.

* aus dem Char "c" einen String machen (Speicher reservieren)
* im StringReplace einen neuen String erstellen und in dem uneffektiv rumfummeln (StringReplace ist nicht grade effektiv geschrieben, also alles umkopieren nach jedem einzelnen ersetzten Char)
* im Delphi zählen die Length wenigstens nicht die Chars, sondern lesen nur die Längenangabe der String aus, aber wollen wir das nicht mit Delphi-Referenz durchsuchenStrLen auch noch etwas disoptimieren?
* die Strings wieder freigeben

* und in älternen Delphi (vor D2006) macht es noch mehr Spaß ... kein FastMM (im langsamen alten Delphi-MemoryManager) ... ohne FastCode (wobei hier StringReplace eh nicht das Schnellste bekommen hat)


Aber da RegEx sowieso das Coolste hier, hier auch noch eine Lösung damit
Delphi-Quellcode:
z := TRegEx.Match(str, c).Groups.Count;

// falls C eines der RegEx-Controlzeichen sein könnte, sollte man es vielleicht besser noch escapen
z := TRegEx.Match(str, Format('\x%.2x', [Ord(c)])).Groups.Count;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (11. Jul 2018 um 17:33 Uhr)
  Mit Zitat antworten Zitat