Anzahl eines Zeichens im String ermitteln

[Uwe Raabe]

Nur so zum Spaß noch eine Version, die auch mit PChar arbeitet, aber trotzdem #0 Zeichen im String zulässt.
(Kann sein, daß die Pointer-Arithmetik in älteren Versionen noch nicht funktioniert. Dann die auskommentierte Variante verwenden.)

Delphi-Quellcode:

function CharCount(const S: string; C: Char): Cardinal;
var
  P, PEnd: PChar;
begin
  Result := 0;
  P := PChar(S);
  PEnd := P + Length(S));
//  PEnd := P;
//  Inc(PEnd, Length(S));
  while P < PEnd do begin
    while P^ <> C do begin
      Inc(P);
      if P = PEnd then Exit;
    end;
    Inc(Result);
    Inc(P);
  end;
end;

[p80286]

Müßte es nicht heißen
 inc(p^,sizeof(char)); ?

Gruß
K-H

[Uwe Raabe]

Zitat von p80286:

Müßte es nicht heißen
 inc(p^,sizeof(char)); ?

Ich vermute mal, die Dereferenzierung ist ein Versehen, denn das würde den Character-Wert ändern und nicht den Pointer.

Das Sizeof(Char) ist hier nicht nur nicht notwendig, sonder wäre sogar schädlich. Bei typisierten Pointern (hier PChar) wird bei Inc/Dec die Größe des Typs (in diesem Fall Char) berücksichtigt. Funktioniert auch hervorragend mit Pointern auf Records. Lediglich bei (untypisiertem) Pointer wird byte-weise verändert.

http://docwiki.embarcadero.com/Libra.../de/System.Inc

Zitat:

Wenn X ein Zeigertyp ist, wird X um N-mal der Größe des Typs, auf den gezeigt wird, inkrementiert. Für

type PMyType = ^TMyType;

und

var P: PMyType;

inkrementiert die Anweisung Inc(P) P um SizeOf(TMyType).

[KodeZwerg]

Danke Uwe, funktioniert Pfeilschnell auch im binär Modus. Das ist mein momentaner Favorit, das alte StrScan() verschwindet somit.

[p80286]

Zitat von Uwe Raabe:

Bei typisierten Pointern (hier PChar) wird bei Inc/Dec die Größe des Typs (in diesem Fall Char) berücksichtigt. Funktioniert auch hervorragend mit Pointern auf Records. Lediglich bei (untypisiertem) Pointer wird byte-weise verändert.

Danke, man lernt nie aus.
Ich sollte meine Pointer-Kenntnisse einmal auffrischen.

Gruß
K-H