Wie oft ist ein Zeichen in einem String

[xZise]

Zitat von dominikkv:

oder so:

Delphi-Quellcode:

function Zeichen(const s: String; const z: Char): Integer;
var
  I: Integer;
begin
result := 0;
for I := 1 to length(s) do
  if s[i] = z then inc(result);
end;

Gabs schonmal:

Zitat von Nils_13:

Delphi-Quellcode:

function bla(s : String; z : String) : Integer;
var i : Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] = z then
      inc(Result);
  end;
end;

Wer es nicht sieht, einfach Umstellen (Gleicher Code nur andere Formatierung!!!):

Delphi-Quellcode:

function Zeichen(const s: String; const z: Char): Integer;
var
  I: Integer;
begin
  result := 0;  // Tab
  for I := 1 to length(s) do  // Tab
  // kein Begin, aber irrelevant
    if s[i] = z then   // Tab & umgebrochen!
      inc(result);  // Umgebrochen
  // ein end, aber irrelevant
end;

Obwohl die inrementiertung doch eigentlich schneller gehen könnte ... Oder nicht (x := x + 1)?