Anzahl eines Zeichens im String ermitteln

[Graf Gustav]

z:=Length(str)-Length(StringReplace(str, c, '', [rfReplaceAll])) @Ydobon:
das ist genial (auch nach 10 Jahren noch)

[himitsu]

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 StrLen 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;

[Uwe Raabe]

Zitat von himitsu:

Es geht aber inzwischen noch kürzer

Genau:
N := MyString.CountChar(MyChar);

[himitsu]

Du hast zu früh geantwortet und jetzt DIE Megalösung übesehn, welche ich noch nachgetragen hatte.

[KodeZwerg]

Zitat von himitsu:

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;

Welche Unit muss ich dafür einbinden, in meiner Hilfe finde ich nichts über ein TRegEx.

[Uwe Raabe]

Zitat von KodeZwerg:

Welche Unit muss ich dafür einbinden, in meiner Hilfe finde ich nichts über ein TRegEx.

System.RegularExpressions - gibt's aber noch nicht so lange.

[KodeZwerg]

Danke für instant-Antwort! Schade dann bleibts bei der langsamen Version für D2009 da Strings bei mir auch noch keine Eigenen Funktionen besitzen.

[Uwe Raabe]

Hier der Backport von string.CountChar für ältere Delphi-Versionen - sollte bekannt vorkommen (miep)...

Delphi-Quellcode:

function StringCountChar(const S: string; const C: Char): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I:= 1 to Length(S) do
    if S[I] = C then
      Inc(Result);
end;

[KodeZwerg]

Ich nutze etwas ähnliches, hier mein Code um noch eine Variante zu zeigen (oder gabs die hier schon?):

Delphi-Quellcode:

function CountCharInString(const Str: String; const c: Char): Integer;
var
  p: PChar;
begin
  Result := 0;
  p := PChar(Pointer(Str));
  while p <> nil do
    begin
      p := StrScan(p, c);
      if p <> nil then
        begin
          inc(Result);
          inc(p);
        end;
    end;
end;

[himitsu]

Zitat von KodeZwerg:

Zitat von himitsu:

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;

Welche Unit muss ich dafür einbinden, in meiner Hilfe finde ich nichts über ein TRegEx.

Solche Komponenten gibt es auch als Freeware von Fremdanbietern. (Emba hat da auch nur geklaut abgeguckt)