Anzahl eines Zeichens im String ermitteln

[devidespe]

Wie kann man die Anzahl eines Zeichens in einem vorliegenden String ermitteln ? Die Pos-Funktion sucht ja nur das erste Zeichen.

Gibt es dafür eine spezielle Funktion, oder muss ich etwa den String in eine temporäre Variable kopieren und nach jedem gefundenen Pos-Ergebnis das Zeichen in dieser Temp-Variable löschen (in einer Schleife) ?

[dominikkv]

Length(myString)

[1234588]

Delphi-Quellcode:

var
  i: LongInt;
  j: LongInt = 0;
begin
  for i := 1 to length(str) do
    if str[i] = zeichen then Inc(j);

es wird einfach zeichen fuer zeichen verglichen. in j findest du dann die anzahl der zeichen

//edit
die funktion dazu:

Delphi-Quellcode:

function miep(const s: String; c: Char): LongInt;
var
  i: LongInt;
begin
  result := 0;
  for i := 1 to length(s) do
    if s[i] = c then Inc(result);
end;

[mkinzler]

Man könnte es auch mit PosEx() machen

[inherited]

Zitat von mkinzler:

Man könnte es auch mit PosEx() machen

Was vermutlich noch ineffektiver wäre

[mkinzler]

Zitat:

Was vermutlich noch ineffektiver wäre

Warum?

[inherited]

Ich hab zwar grad kein Delphi zur verfügung, aber ich denke dass PosEx nichts anderes macht als den String durchzugehen. Dann kann man sich die mehrfachen Aufrufe auch gleich sparen und per Hand zählen.

[mkinzler]

Dann wäre es schlimmstenfalls genauso ineffektiv.

[devidespe]

Also ich habe jetzt eine eigene Funktion geschrieben, die in einer For-To-Do-Schleife (danke @1234588) den String durchsucht.

Ich habe gerade aber auch ein Beispiel mit PosEx hier entdeckt.

[Ydobon]

Geht sogar als Einzeiler:
z:=Length(str)-Length(StringReplace(str, c, '', [rfReplaceAll]))