Buchstaben zählen

[Olli]

Zitat von qLamorouz:

Es sollte mit einer Schleife programmiert werden ... (if... else... then uSw ) ...

Wenn Wenn eine Schleife wäre, wäre Wenn Für die Katz!

Zu deiner Aufgabe, freihand (da kein Delphi installiert):

Delphi-Quellcode:

function CountChars(FindChar: Char; const Input: String) : LongWord;
var
  i: LongWord;
begin
  Result := 0;
  for i := 0 to Length(Input) do
    if(FindChar = Input[i]) then
      Inc(Result);
end;

... oder so.

Nachtrag: ich gebe Muetze1 eigentlich recht. Daher habe ich mal - sozusagen als Denkprobe - zwei Kleinigkeiten im Code "angepaßt", die den Code fehlerhaft werden lassen, aber jedem der nachdenkt sofort auffallen werden.