Anzahl eines Zeichens im String ermitteln

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