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.