Anzahl eines Zeichens im String ermitteln

[Missionar]

'ne andere Version in die runde geb

Delphi-Quellcode:

function cCount(str: string; c: char): integer;
var
  x: char;
begin
  result := 0;
  for x in str do
    if x = c then inc(result);
end;

[alzaimar]

Delphi-Quellcode:

...
    Inc(Result, Ord(s[n] = c);
...

Ein IF und das Ganze ist 4x schneller (String mit zufälligen Großbuchstaben füllen, nach 'A' suchen).

Delphi-Quellcode:

Function IFCount (Const s : String; c : Char) : Integer;
Var
  i : Integer;

Begin
  Result := 0;
  For i:=1 to length(s) do
    If s[i]=c then
      inc (Result);
End;

[Alter Mann]

???

An Position Null wird die Länge gespeichert, Abfrage also

Delphi-Quellcode:

var
  s : string;
begin
  s := "Wir gewinnen das Finale";
  case s[0] of
   1 : begin end;
   else : s := s + " am Sonntag!";
  end;
end;

[Apollonius]

Du hast wohl zu lange mit reinem Pascal programmiert. In Delphi ist der Standard-String-Type zur Zeit Ansistring und nicht Shortstring. In Ansistrings wird die Länge nicht mehr im ersten Byte gespeichert, sondern liegt in den vier Byte vor dem eigentlichen String. Das Ansprechen von s[0] führt daher zu einem Compiler-Fehler.
Außerdem hat das nichts mit der Frage zu tun.

[Alter Mann]

Stimmt, mit der Frage hat es nichts zu tun